Changeset 14227

Timestamp:

Aug 30, 2010, 9:07:36 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

• trunk/source/lib/macros.lisp (modified) (1 diff)

trunk/source/lib/macros.lisp

@@ -1327 +1327 @@
 
 
-
 (defmacro %char-code (c) `(char-code (the character ,c)))
-(defmacro %code-char (i) `(code-char (the (mod 256) ,i)))
+(defmacro %code-char (i) `(code-char (the (mod #.char-code-limit) ,i)))
 
 (defmacro %izerop (x) `(eq ,x 0))