X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fchar.lisp;h=56b3d2c0ed79d4dac796940516809b97fb443456;hb=7f1e94ae961a198e00daf281eb1dc858e5b2dcc7;hp=0a89c81512723a7eceae2f379225a79353f22604;hpb=069ca63d16c8de8742fc78b927dfa7b79a27c96d;p=sbcl.git

diff --git a/src/code/char.lisp b/src/code/char.lisp
index 0a89c81..56b3d2c 100644
--- a/src/code/char.lisp
+++ b/src/code/char.lisp
@@ -12,8 +12,8 @@
 
 (in-package "SB!IMPL")
 
-(def!constant sb!xc:char-code-limit 256
+(def!constant sb!xc:char-code-limit #!-sb-unicode 256 #!+sb-unicode #x110000
   #!+sb-doc
   "the upper exclusive bound on values produced by CHAR-CODE")
 
-(def!constant base-char-code-limit 256)
+(def!constant base-char-code-limit #!-sb-unicode 256 #!+sb-unicode 128)