Changeset 14227


Ignore:
Timestamp:
Aug 30, 2010, 4:07:36 PM (9 years ago)
Author:
rme
Message:

%code-char: codes aren't (mod 256) any more.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r14119 r14227  
    13271327
    13281328
    1329 
    13301329(defmacro %char-code (c) `(char-code (the character ,c)))
    1331 (defmacro %code-char (i) `(code-char (the (mod 256) ,i)))
     1330(defmacro %code-char (i) `(code-char (the (mod #.char-code-limit) ,i)))
    13321331
    13331332(defmacro %izerop (x) `(eq ,x 0))
Note: See TracChangeset for help on using the changeset viewer.