Changeset 14139
- Timestamp:
- 08/31/12 22:07:04 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14115 r14139 1270 1270 (,emf-form 1271 1271 (let* (,@(when whole 1272 `((,whole ',args-var))) 1272 `((,whole (progn 1273 (push `(,',whole ,',args-var) 1274 ,binding-forms) 1275 ',args-var)))) 1273 1276 ,@(when rest 1274 1277 ;; ### TODO: use a fresh symbol for the rest
Note: See TracChangeset
for help on using the changeset viewer.