Ignore:
Timestamp:
03/15/09 22:58:12 (13 years ago)
Author:
ehuelsmann
Message:

Fix special binding issue related to arguments declared special.

Found by: Don Cohen (don-sourceforge-xxz at isis.cs3-inc.com)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

    r11645 r11712  
    933933             (vars nil))
    934934        (dolist (sym syms)
    935           (let ((var (make-variable :name sym)))
     935          (let ((var (make-variable :name sym
     936                                    :special-p (special-variable-p sym))))
    936937            (push var vars)
    937938            (push var *all-variables*)))
Note: See TracChangeset for help on using the changeset viewer.