Changeset 14046
- Timestamp:
- 08/03/12 18:56:03 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14045 r14046 1119 1119 (member-if #'(lambda (it) (member it lambda-list-keywords)) 1120 1120 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)))) 1123 1124 1124 1125 (defun extract-specified-part (key lambda-list)
Note: See TracChangeset
for help on using the changeset viewer.