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

[Ville Voutilainen]

Author: vvoutilainen
Date: Sat Jan  3 18:41:49 2009
New Revision: 11531

Log:
In preparation for further refactorings, a tiny change
to p2-plus.


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	Sat Jan  3 18:41:49 2009
@@ -6715,9 +6715,8 @@
               (fix-boxing representation result-type)
               (emit-move-from-stack target representation))
              ((fixnum-type-p type2)
-              (compile-form arg1 'stack nil)
-              (maybe-emit-clear-values arg1 arg2)
-              (compile-form arg2 'stack :int)
+	      (compile-forms-and-maybe-emit-clear-values arg1 'stack nil
+							 arg2 'stack :int)
               (emit-invokevirtual +lisp-object-class+ "add" '("I") +lisp-object+)
               (fix-boxing representation result-type)
               (emit-move-from-stack target representation))