Changeset 11594


Ignore:
Timestamp:
01/26/09 21:54:03 (13 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11593 r11594  
    64246424        ((integerp form)
    64256425         (list 'INTEGER form form))
     6426        ((typep form 'single-float)
     6427         'SINGLE-FLOAT)
     6428        ((typep form 'double-float)
     6429         'DOUBLE-FLOAT)
    64266430        ((characterp form)
    64276431         'CHARACTER)
Note: See TracChangeset for help on using the changeset viewer.