X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fchar.lisp;h=56b3d2c0ed79d4dac796940516809b97fb443456;hb=25fe91bf63fd473d9316675b0e0ca9be0079e9eb;hp=e1c7ca7db55500626aad97bc83ae4693b9c83d1d;hpb=334af30b26555f0bf706f7157b399bdbd4fad548;p=sbcl.git

diff --git a/src/code/char.lisp b/src/code/char.lisp
index e1c7ca7..56b3d2c 100644
--- a/src/code/char.lisp
+++ b/src/code/char.lisp
@@ -12,6 +12,8 @@
 
 (in-package "SB!IMPL")
 
-(defconstant 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)