Changeset 7939


Ignore:
Timestamp:
Dec 26, 2007, 7:46:21 AM (12 years ago)
Author:
gb
Message:

Recognize CHAR-CODE's result type.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx0.lisp

    r7791 r7939  
    133133    (#.(%nx1-operator %fixnum-to-single) . single-float)
    134134    (#.(%nx1-operator %fixnum-to-double) . double-float)
     135    (#.(%nx1-operator char-code) . #.`(integer 0 (,char-code-limit)))
    135136   ))
    136137
     
    139140    (%ilogxor . fixnum)
    140141    (%ilogand . fixnum)
    141     (%ilogior . fixnum)))
     142    (%ilogior . fixnum)
     143    (char-code . #. `(integer 0 (,char-code-limit)))))
    142144
    143145(setq *nx-known-declarations*
Note: See TracChangeset for help on using the changeset viewer.