Changeset 14139


Ignore:
Timestamp:
08/31/12 22:07:04 (9 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r14115 r14139  
    12701270              (,emf-form
    12711271               (let* (,@(when whole
    1272                               `((,whole ',args-var)))
     1272                              `((,whole (progn
     1273                                          (push `(,',whole ,',args-var)
     1274                                                ,binding-forms)
     1275                                          ',args-var))))
    12731276                      ,@(when rest
    12741277                              ;; ### TODO: use a fresh symbol for the rest
Note: See TracChangeset for help on using the changeset viewer.