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@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@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-cvs