[armedbear-devel] [armedbear-cvs] r12526 - trunk/abcl/src/org/armedbear/lisp
Erik Huelsmann
ehuels at gmail.com
Sat Mar 13 18:52:27 UTC 2010
This e-mail was caused by me testing the post-commit hookscript.
Sorry.
Bye,
Erik.
On Sat, Mar 13, 2010 at 7:49 PM, Erik Huelsmann
<ehuelsmann at common-lisp.net> wrote:
> 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)
>
> _______________________________________________
> armedbear-cvs mailing list
> armedbear-cvs at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-cvs
>
More information about the armedbear-devel
mailing list