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