Changeset 14045


Ignore:
Timestamp:
08/03/12 11:53:33 (8 years ago)
Author:
ehuelsmann
Message:

Fix CLOS::EXTRACT-REQUIRED-PART when there is no required part;
e.g. (&key some-key) only.

File:
1 edited

Legend:

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

    r14043 r14045  
    11141114                   (cddr lambda-list)
    11151115                   lambda-list)))
    1116     (ldiff (skip '&environment (skip '&whole lambda-list))
    1117            (member-if #'(lambda (it) (member it lambda-list-keywords))
    1118                       lambda-list))))
     1116    (let* ((trimmed-lambda-list
     1117            (skip '&environment (skip '&whole lambda-list)))
     1118           (after-required-lambda-list
     1119            (member-if #'(lambda (it) (member it lambda-list-keywords))
     1120                       trimmed-lambda-list)))
     1121      (when after-required-lambda-list
     1122        (ldiff trimmed-lambda-list after-required-lambda-list)))))
    11191123
    11201124(defun extract-specified-part (key lambda-list)
Note: See TracChangeset for help on using the changeset viewer.