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

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Mar  3 17:53:55 2011
New Revision: 13233

Log:
Fix an UNSAFE-P-REMOVAL regression: inadvertently a statement in p2-logior
wasn't deleted when it should have.

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 Mar  3 17:53:55 2011
@@ -4586,8 +4586,6 @@
                     ((compile-operand arg1 nil)
                      (compile-operand arg2 :int)
                      (maybe-emit-clear-values arg1 arg2)))
-                (compile-forms-and-maybe-emit-clear-values arg1 'stack nil
-                                                           arg2 'stack :int)
                 (emit-invokevirtual +lisp-object+ "LOGIOR" '(:int) +lisp-object+)
                 (fix-boxing representation result-type)
                 (emit-move-from-stack target representation))