X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fchar.lisp;h=56b3d2c0ed79d4dac796940516809b97fb443456;hb=7a2ee8c1aff0bdd286cf5d43ab40bff7fed86bea;hp=07ea3509613a18184c3f92de5d293079db563faf;hpb=8731c1a7c1a585d190151fa881050fb5e14c0616;p=sbcl.git

diff --git a/src/code/char.lisp b/src/code/char.lisp
index 07ea350..56b3d2c 100644
--- a/src/code/char.lisp
+++ b/src/code/char.lisp
@@ -12,6 +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 #!-sb-unicode 256 #!+sb-unicode 128)