Changeset 14046


Ignore:
Timestamp:
08/03/12 18:56:03 (8 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r14045 r14046  
    11191119            (member-if #'(lambda (it) (member it lambda-list-keywords))
    11201120                       trimmed-lambda-list)))
    1121       (when after-required-lambda-list
    1122         (ldiff trimmed-lambda-list after-required-lambda-list)))))
     1121      (if after-required-lambda-list
     1122        (ldiff trimmed-lambda-list after-required-lambda-list)
     1123        trimmed-lambda-list))))
    11231124
    11241125(defun extract-specified-part (key lambda-list)
Note: See TracChangeset for help on using the changeset viewer.