Changeset 14055
- Timestamp:
- 08/04/12 21:57:45 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14054 r14055 1262 1262 (binding-forms (gensym)) 1263 1263 (needs-args-len-var (gensym)) 1264 (emf-form (gensym)))1264 (emf-form (gensym))) 1265 1265 `(let* ((,gf-lambda-list (slot-value ,generic-function-symbol 1266 1266 'sys::lambda-list)) … … 1281 1281 ,@(loop for (var initform supplied-var) in optional 1282 1282 and i upfrom 0 1283 for supplied-binding = (or supplied-var 1284 (when initform (gensym))) 1283 for supplied-binding = (or supplied-var (gensym)) 1285 1284 for var-binding = (gensym) 1286 1285 ;; check for excess parameters … … 1294 1293 ;; 1295 1294 ;; Also, if specified, bind "supplied-p" 1296 if supplied-binding1297 1295 collect `(,supplied-binding 1298 1296 (when (< ,i nopt)
Note: See TracChangeset
for help on using the changeset viewer.