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

[Alessio Stalla]

Author: astalla
Date: Sat Jun  5 15:38:41 2010
New Revision: 12739

Log:
Removed duplicate type tests in 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	Sat Jun  5 15:38:41 2010
@@ -2421,10 +2421,6 @@
              (packagep form)
              (pathnamep form)
              (vectorp form)
-             (stringp form)
-             (packagep form)
-             (pathnamep form)
-             (vectorp form)
              (structure-object-p form)
              (standard-object-p form)
              (java:java-object-p form))