[armedbear-cvs] r12707 - trunk/abcl/src/org/armedbear/lisp
Erik Huelsmann
ehuelsmann at common-lisp.net
Tue May 18 22:45:33 UTC 2010
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))
More information about the armedbear-cvs
mailing list