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

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue May 18 18:45:33 2010
New Revision: 12707

Log:
Simplify COMPILE-CONSTANT.

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	Tue May 18 18:45:33 2010
@@ -2487,14 +2487,12 @@
              (stringp form)
              (packagep form)
              (pathnamep form)
-             (vectorp form))
-         (emit-load-externalized-object form))
-        ((or (stringp form)
+             (vectorp form)
+             (stringp form)
              (packagep form)
              (pathnamep form)
-             (vectorp form))
-         (emit-load-externalized-object form))
-        ((or (structure-object-p form)
+             (vectorp form)
+             (structure-object-p form)
              (standard-object-p form)
              (java:java-object-p form))
          (emit-load-externalized-object form))