Commit c552f877 authored by pfdietz's avatar pfdietz

Fixed bug in NO-APPLICABLE-METHOD.7

parent a01331e6
......@@ -46,7 +46,7 @@
:good)
(defparameter *no-app-meth-gf-04*
(defgeneric no-app-meth-gf-04 (x)))
(defgeneric no-app-meth-gf-04 (&rest args)))
(defmethod no-applicable-method ((x (eql *no-app-meth-gf-04*)) &rest args)
(and (eql x *no-app-meth-gf-04*)
......@@ -55,3 +55,4 @@
(deftest no-applicable-method.7
(no-app-meth-gf-04 'a 'b 'c 'd)
(a b c d))
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