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

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Jan 26 21:54:03 2009
New Revision: 11594

Log:
Make DERIVE-TYPE support SINGLE-FLOAT and DOUBLE-FLOAT.

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	Mon Jan 26 21:54:03 2009
@@ -6423,6 +6423,10 @@
          'NULL)
         ((integerp form)
          (list 'INTEGER form form))
+        ((typep form 'single-float)
+         'SINGLE-FLOAT)
+        ((typep form 'double-float)
+         'DOUBLE-FLOAT)
         ((characterp form)
          'CHARACTER)
         ((stringp form)