Changeset 14041
- Timestamp:
- 08/02/12 15:36:56 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14040 r14041 1131 1131 (extract-specified-part '&optional lambda-list)) 1132 1132 1133 (defun parse-define-method-combination-arg uments-lambda-list (lambda-list)1133 (defun parse-define-method-combination-args-lambda-list (lambda-list) 1134 1134 ;; Define-method-combination Arguments Lambda Lists 1135 1135 ;; http://www.lispworks.com/reference/HyperSpec/Body/03_dj.htm … … 1205 1205 (rest-args (gensym))) 1206 1206 (multiple-value-bind (whole required optional rest keys aux) 1207 (parse-define-method-combination-arg uments-lambda-list args-lambda-list)1207 (parse-define-method-combination-args-lambda-list args-lambda-list) 1208 1208 `(let* ((,gf-lambda-list (slot-value ,generic-function-symbol 'sys::lambda-list)) 1209 1209 (,nrequired (length (extract-required-part ,gf-lambda-list)))
Note: See TracChangeset
for help on using the changeset viewer.