[armedbear-cvs] r14046 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Aug  3 11:56:03 2012
New Revision: 14046

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Fri Aug  3 04:53:33 2012	(r14045)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Fri Aug  3 11:56:03 2012	(r14046)
@@ -1118,8 +1118,9 @@
            (after-required-lambda-list
             (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)
   (case key