Changeset 12526


Ignore:
Timestamp:
03/12/10 22:38:32 (14 years ago)
Author:
ehuelsmann
Message:

Fix ticket #85: CL-JSON throws an error where SBCL doesn't.

File:
1 edited

Legend:

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

    r12505 r12526  
    10791079;;        (let ((variable (make-variable :name name :special-p t)))
    10801080;;          (push
    1081     (setf (progv-form block)
    1082           `(progv ,symbols-form ,values-form ,@(p1-body body))
    1083           (progv-environment-register block) t)
     1081    (setf (progv-environment-register block) t
     1082          (progv-form block)
     1083          `(progv ,symbols-form ,values-form ,@(p1-body body)))
    10841084    block))
    10851085
Note: See TracChangeset for help on using the changeset viewer.