Fix cxml.asd for cmucl with unicode

This commit is contained in:
David Lichteblau
2010-10-06 19:58:57 +02:00
committed by David Lichteblau
parent 186488e386
commit f2fccbbba3

View File

@ -18,7 +18,7 @@
#+rune-is-character #+rune-is-character
(error "conflicting unicode configuration. Please recompile.") (error "conflicting unicode configuration. Please recompile.")
(pushnew :rune-is-integer *features*)) (pushnew :rune-is-integer *features*))
((code-char 70000) ((test 70000)
(when (test #xD800) (when (test #xD800)
(format t " WARNING: Lisp implementation doesn't use UTF-16, ~ (format t " WARNING: Lisp implementation doesn't use UTF-16, ~
but accepts surrogate code points.~%")) but accepts surrogate code points.~%"))