/[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.15 by pfdietz, Wed May 28 13:35:04 2003 UTC revision 1.16 by pfdietz, Thu May 29 02:41:20 2003 UTC
# Line 726  Line 726 
726         (funcall fn x :bar 'b :foo 'a))))         (funcall fn x :bar 'b :foo 'a))))
727    nil a nil a a)    nil a nil a a)
728    
729    ;;; I'm not sure this one is proper
730  (when (subtypep (class-of (find-class 'standard-generic-function))  (when (subtypep (class-of (find-class 'standard-generic-function))
731                  'standard-class)                  'standard-class)
732    (defclass substandard-generic-function (standard-generic-function) ())    (defclass substandard-generic-function (standard-generic-function) ())

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

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