/[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.18 by pfdietz, Thu Jul 3 12:14:04 2003 UTC revision 1.19 by pfdietz, Sat Aug 2 18:35:19 2003 UTC
# Line 763  Line 763 
763    nil a nil a a)    nil a nil a a)
764    
765  ;;; I'm not sure this one is proper  ;;; I'm not sure this one is proper
766    ;;; Added :metaclass at prompting of Martin Simmons
767  (when (subtypep (class-of (find-class 'standard-generic-function))  (when (subtypep (class-of (find-class 'standard-generic-function))
768                  'standard-class)                  'standard-class)
769    (defclass substandard-generic-function (standard-generic-function) ())    (defclass substandard-generic-function (standard-generic-function) ()
770        (:metaclass #.(class-name (class-of
771                                   (find-class 'standard-generic-function)))))
772    (deftest defgeneric.30    (deftest defgeneric.30
773      (let ((fn      (let ((fn
774             (eval '(defgeneric defgeneric.fun.29 (x)             (eval '(defgeneric defgeneric.fun.29 (x)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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