Changeset 7939

Timestamp:

Dec 26, 2007, 7:46:21 AM (13 years ago)

Author:

gb

Message:

Recognize CHAR-CODE's result type.

File:

• branches/working-0711/ccl/compiler/nx0.lisp (modified) (2 diffs)

branches/working-0711/ccl/compiler/nx0.lisp

@@ -133 +133 @@
     (#.(%nx1-operator %fixnum-to-single) . single-float)
     (#.(%nx1-operator %fixnum-to-double) . double-float)
+    (#.(%nx1-operator char-code) . #.`(integer 0 (,char-code-limit)))
    ))
 
@@ -139 +140 @@
     (%ilogxor . fixnum)
     (%ilogand . fixnum)
-    (%ilogior . fixnum)))
+    (%ilogior . fixnum)
+    (char-code . #. `(integer 0 (,char-code-limit)))))
 
 (setq *nx-known-declarations*