Changeset 5044

Timestamp:

Aug 28, 2006, 3:52:42 AM (18 years ago)

Author:

Gary Byers

Message:

%CHAR-CODE: for how long has limit not been 2^{16 ? For how long will limit be
2}8 ?

File:

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

trunk/ccl/lib/macros.lisp

@@ -1244 +1244 @@
 
 (defmacro %char-code (c) `(char-code (the character ,c)))
-(defmacro %code-char (i) `(code-char (the (unsigned-byte 16) ,i)))
+(defmacro %code-char (i) `(code-char (the (mod ,char-code-limit) ,i)))
 
 (defmacro %izerop (x) `(eq ,x 0))