[armedbear-cvs] r14139 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Aug 31 15:07:04 2012
New Revision: 14139

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sun Aug 26 14:43:53 2012	(r14138)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Fri Aug 31 15:07:04 2012	(r14139)
@@ -1269,7 +1269,10 @@
               (,needs-args-len-var)
               (,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
                               ;;   binding being generated and pushed into binding-forms