Changeset 14139

Timestamp:

08/31/12 22:07:04 (9 years ago)

Author:

ehuelsmann

Message:

Fix a slew of DMC-TEST-ARGS-WITH-WHOLE.* tests.

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/clos.lisp

@@ -1270 +1270 @@
               (,emf-form
                (let* (,@(when whole
-                              `((,whole ',args-var)))
+                              `((,whole (progn
+                                          (push `(,',whole ,',args-var)
+                                                ,binding-forms)
+                                          ',args-var))))
                       ,@(when rest
                               ;; ### TODO: use a fresh symbol for the rest