Changeset 11591


Ignore:
Timestamp:
01/26/09 19:29:53 (12 years ago)
Author:
ehuelsmann
Message:

Make SINGLE-FLOAT and DOUBLE-FLOAT compiler types.

File:
1 edited

Legend:

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

    r11391 r11591  
    145145        ((constant-type-p typespec)
    146146         typespec)
     147        ((eq typespec 'SINGLE-FLOAT)
     148         'SINGLE-FLOAT)
     149        ((eq typespec 'DOUBLE-FLOAT)
     150         'DOUBLE-FLOAT)
     151        ((and (consp typespec)
     152              (eq (%car typespec) 'SINGLE-FLOAT))
     153         'SINGLE-FLOAT)
     154        ((and (consp typespec)
     155              (eq (%car typespec) 'DOUBLE-FLOAT))
     156         'DOUBLE-FLOAT)
    147157        (t
    148158         (let ((type (normalize-type typespec)))
     
    151161                    (cond ((eq car 'INTEGER)
    152162                           (make-integer-type type))
     163                          ((eq car 'SINGLE-FLOAT)
     164                           'SINGLE-FLOAT)
     165                          ((eq car 'DOUBLE-FLOAT)
     166                           'DOUBLE-FLOAT)
    153167                          ((memq car '(STRING SIMPLE-STRING LIST))
    154168                           car)
Note: See TracChangeset for help on using the changeset viewer.