Changeset 14046

Timestamp:

08/03/12 18:56:03 (8 years ago)

Author:

ehuelsmann

Message:

Fix required-part parsing in case of 'required-part-only'.

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/clos.lisp

@@ -1119 +1119 @@
             (member-if #'(lambda (it) (member it lambda-list-keywords))
                        trimmed-lambda-list)))
-      (when after-required-lambda-list
-        (ldiff trimmed-lambda-list after-required-lambda-list)))))
+      (if after-required-lambda-list
+        (ldiff trimmed-lambda-list after-required-lambda-list)
+        trimmed-lambda-list))))
 
 (defun extract-specified-part (key lambda-list)