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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Jan  1 18:36:06 2011
New Revision: 13118

Log:
Put the transformed INITFORM back into form being transformed.


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	Sat Jan  1 18:36:06 2011
@@ -434,6 +434,8 @@
 		       (,var (make-variable :name (check-name ,name)
                                             :initform ,initform
                                             :block ,block)))
+		  (when (neq ,initform (cadr ,varspec))
+		    (setf (cadr ,varspec) ,initform))
 		  (push ,var ,variables-var)
 		  , at body1))
 	       (t