Changeset 10368


Ignore:
Timestamp:
Aug 6, 2008, 9:01:47 AM (11 years ago)
Author:
gb
Message:

Translate CODE-CHAR into %VALID-CODE-CHAR when type decl allows.
(Needs a little more support in the compiler, but we aren't using
the type decl yet.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r10321 r10368  
    173173  (make-acode (if (nx-form-typep arg '(unsigned-byte 8) env)
    174174                (%nx1-operator %code-char)
    175                 (%nx1-operator code-char))
     175                (if (nx-form-typep arg 'valid-char-code env)
     176                  (%nx1-operator %valid-code-char)
     177                  (%nx1-operator code-char)))
    176178              (nx1-form arg)))
    177179
Note: See TracChangeset for help on using the changeset viewer.