Commit 6c94f69f authored by pfdietz's avatar pfdietz
Browse files

Commented out defgeneric.27. I am not sure this is supposed to work.

parent a2ad38ea
......@@ -657,6 +657,7 @@
(funcall fn 'a))
a)
#|
(when (subtypep (class-of (find-class 'standard-method))
'standard-class)
(defclass substandard-method (standard-method) ())
......@@ -670,6 +671,7 @@
(funcall fn 1 2)
(funcall fn "1" "2")))
3 "12"))
|#
(deftest defgeneric.28
(let ((fn (eval '(defgeneric defgeneric.fun.28 (x &key)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment