Changeset 5175

Timestamp:

Sep 8, 2006, 5:48:53 PM (18 years ago)

Author:

Gary Byers

Message:

%CODE-CHAR asserts that code is (UNSIGNED-BYTE 8), which is still useful (and
exactly what it used to do.)

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 (mod ,char-code-limit) ,i)))
+(defmacro %code-char (i) `(code-char (the (mod 256) ,i)))
 
 (defmacro %izerop (x) `(eq ,x 0))