Changeset 9498


Ignore:
Timestamp:
May 15, 2008, 11:24:12 PM (11 years ago)
Author:
gb
Message:

ISTRUCT-TYPEP: pass the registered istruct cell as a constant, not
its name.

CODE-CHAR might do VALID-CODE-CHAR if the argument is asserted to
be of type VALID-CODE-CHAR.

File:
1 edited

Legend:

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

    r9416 r9498  
    6161                (nx1-immediate :eq)
    6262                (nx1-form thing)
    63                 (nx1-form type))
     63                (nx1-form `(register-istruct-cell ,type)))
    6464    (nx1-treat-as-call whole)))
    6565
     
    166166  (make-acode (if (nx-form-typep arg '(unsigned-byte 8) env)
    167167                (%nx1-operator %code-char)
    168                 (%nx1-operator code-char))
     168                (if (nx-form-typep arg 'valid-char-code env)
     169                  (%nx1-operator %valid-code-char)
     170                  (%nx1-operator code-char)))
    169171              (nx1-form arg)))
     172
    170173
    171174(defnx1 nx1-char-code ((char-code)) (arg &environment env)
Note: See TracChangeset for help on using the changeset viewer.