Microoptimize comparisons with 0 on x86oids.

[sbcl.git] / src / code / char.lisp

diff --git a/src/code/char.lisp b/src/code/char.lisp
index 07ea350..56b3d2c 100644 (file)
--- 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)