Restore building of +sb-unicode with -sb-unicode.

[sbcl.git] / src / code / external-formats / enc-utf.lisp

diff --git a/src/code/external-formats/enc-utf.lisp b/src/code/external-formats/enc-utf.lisp
index bb965c6..145de40 100644 (file)
--- a/src/code/external-formats/enc-utf.lisp
+++ b/src/code/external-formats/enc-utf.lisp
@@ -423,7 +423,7 @@
                             (dpb (cref 3) (byte 8 24)
                                  (dpb (cref 2) (byte 8 16)
                                       (dpb (cref 1) (byte 8 8) (cref 0))))))))
-          (if (and (< code char-code-limit)
+          (if (and (< code sb!xc:char-code-limit)
                    (not (utf-noncharacter-code-p code)))
               (code-char code)
               (decoding-error array pos (+ pos bytes) :utf-32le
@@ -443,7 +443,7 @@
                             (dpb (cref 0) (byte 8 24)
                                  (dpb (cref 1) (byte 8 16)
                                       (dpb (cref 2) (byte 8 8) (cref 3))))))))
-          (if (and (< code char-code-limit)
+          (if (and (< code sb!xc:char-code-limit)
                    (not (utf-noncharacter-code-p code)))
               (code-char code)
               (decoding-error array pos (+ pos bytes) :utf-32be
@@ -502,7 +502,7 @@
       (setf (sap-ref-32le sap tail) bits))
   4
   (let ((code (sap-ref-32le sap head)))
-    (if (and (< code char-code-limit)
+    (if (and (< code sb!xc:char-code-limit)
              (not (utf-noncharacter-code-p code)))
         (code-char code)
         (return-from decode-break-reason 4)))
@@ -517,7 +517,7 @@
       (setf (sap-ref-32be sap tail) bits))
   4
   (let ((code (sap-ref-32be sap head)))
-    (if (and (< code char-code-limit)
+    (if (and (< code sb!xc:char-code-limit)
              (not (utf-noncharacter-code-p code)))
         (code-char code)
         (return-from decode-break-reason 4)))