/[gcl]/gcl/ansi-tests/defgeneric.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/defgeneric.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by pfdietz, Sun May 25 12:40:44 2003 UTC revision 1.15 by pfdietz, Wed May 28 13:35:04 2003 UTC
# Line 657  Line 657 
657      (funcall fn 'a))      (funcall fn 'a))
658    a)    a)
659    
660    #|
661  (when (subtypep (class-of (find-class 'standard-method))  (when (subtypep (class-of (find-class 'standard-method))
662                  'standard-class)                  'standard-class)
663    (defclass substandard-method (standard-method) ())    (defclass substandard-method (standard-method) ())
# Line 670  Line 671 
671         (funcall fn 1 2)         (funcall fn 1 2)
672         (funcall fn "1" "2")))         (funcall fn "1" "2")))
673      3 "12"))      3 "12"))
674    |#
675    
676  (deftest defgeneric.28  (deftest defgeneric.28
677    (let ((fn (eval '(defgeneric defgeneric.fun.28 (x &key)    (let ((fn (eval '(defgeneric defgeneric.fun.28 (x &key)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26