X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsrctran.lisp;h=b09518a5f2ef1b9fc1699a19ed264392dbc5bbdb;hb=69e6aef5e6fb3bd682c7a2cbf774034d2ea58ee8;hp=5d4a693e05506fabb97670722d45985636b9c62d;hpb=7a2ee8c1aff0bdd286cf5d43ab40bff7fed86bea;p=sbcl.git

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index 5d4a693..b09518a 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -2522,7 +2522,7 @@
             `(mod ,base-char-code-limit)))
           (t
            (specifier-type
-            `(mod ,char-code-limit))))))
+            `(mod ,sb!xc:char-code-limit))))))
 
 (defoptimizer (code-char derive-type) ((code))
   (let ((type (lvar-type code)))