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) |