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

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Mar 12 17:38:32 2010
New Revision: 12526

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

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	Fri Mar 12 17:38:32 2010
@@ -1078,9 +1078,9 @@
 ;;      (dolist (name (second symbols-form))
 ;;        (let ((variable (make-variable :name name :special-p t)))
 ;;          (push 
-    (setf (progv-form block)
-          `(progv ,symbols-form ,values-form ,@(p1-body body))
-          (progv-environment-register block) t)
+    (setf (progv-environment-register block) t
+          (progv-form block)
+          `(progv ,symbols-form ,values-form ,@(p1-body body)))
     block))
 
 (defknown rewrite-progv (t) t)