Changeset 11437


Ignore:
Timestamp:
12/09/08 23:23:43 (12 years ago)
Author:
ehuelsmann
Message:

Fix *compiled* LAMBDA.64.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/precompiler.lisp

    r11391 r11437  
    639639                   (when (or (special-variable-p var) (memq var declared-specials))
    640640                     (push var specials))))))
     641        ;;//###FIXME: Ideally, we don't rewrite for specials at all
    641642        (when specials
    642643          ;; For each special...
    643644          (dolist (special specials)
    644             (let ((sym (gensym)))
     645            (let ((sym special))
    645646              (let ((res nil)
    646647                    (keyp nil))
Note: See TracChangeset for help on using the changeset viewer.