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

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Oct 29 16:38:46 2009
New Revision: 12233

Log:
Fix paren placement and variable naming.


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

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Thu Oct 29 16:38:46 2009
@@ -1973,7 +1973,7 @@
                                       +lisp-symbol-class+))))
 	 (t
           (let (saved-code)
-            (let ((*code* (if *declare-inline* *code*) *static-code*)
+            (let ((*code* (if *declare-inline* *code* *static-code*))
                   (s (sanitize symbol)))
               ;; *declare-inline*, because the code below assumes the
               ;; package to exist, which can be in a previous statement;
@@ -2212,10 +2212,10 @@
       (emit-invokestatic +lisp-class+ "loadTimeValue"
                          (lisp-object-arg-types 1) +lisp-object+)
       (emit 'putstatic *this-class* g +lisp-object+)
-      (if *declared-inline*
+      (if *declare-inline*
           (setf saved-code *code*)
           (setf *static-code* *code*)))
-    (when *declared-inline*
+    (when *declare-inline*
       (setf *code* saved-code))
     g))