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

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Feb  5 21:39:12 2009
New Revision: 11630

Log:
Optimize (and fix) CONVERT-REPRESENTATION for the case of 2 eql arguments
 (fixes CONVERT-REPRESENTATION for the (NIL NIL) argument case).

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 Feb  5 21:39:12 2009
@@ -610,6 +610,9 @@
 (defun convert-representation (in out)
   "Converts the value on the stack in the `in' representation
 to a value on the stack in the `out' representation."
+  (when (eql in out)
+    ;; no-op
+    (return-from convert-representation))
   (when (null out)
     ;; Convert back to a lisp object
     (when in