Commit 32cf2069 authored by Pascal Costanza's avatar Pascal Costanza
Browse files

Fixed a bug in the loop form for some implementations of ensure-method.

darcs-hash:0cbc9730e904db90c5598f37d28ed2a5d01e8060
parent 71820ab7
......@@ -155,8 +155,8 @@
collect (find-class 't))))
(funcall (compile nil `(lambda ()
(defmethod ,(generic-function-name gf) ,@qualifiers
,(loop for (arg . rest) on lambda-list
for specializer in specializers
,(loop for specializer in specializers
for (arg . rest) on lambda-list
collect `(,arg ,specializer) into args
finally (return (nconc args rest)))
,@(cddr lambda-expression))))))
......
......@@ -8,8 +8,8 @@
collect (find-class 't))))
(funcall (compile nil `(lambda ()
(defmethod ,(generic-function-name gf) ,@qualifiers
,(loop for (arg . rest) on lambda-list
for specializer in specializers
,(loop for specializer in specializers
for (arg . rest) on lambda-list
collect `(,arg ,specializer) into args
finally (return (nconc args rest)))
,@(cddr lambda-expression))))))
......
......@@ -111,8 +111,8 @@
until (member arg lambda-list-keywords)
collect (find-class 't))))
(eval `(defmethod ,(generic-function-name gf) ,@qualifiers
,(loop for (arg . rest) on lambda-list
for specializer in specializers
,(loop for specializer in specializers
for (arg . rest) on lambda-list
collect `(,arg ,specializer) into args
finally (return (nconc args rest)))
,@(cddr lambda-expression))))
......
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