Fix asd for cmucl with unicode

This commit is contained in:
David Lichteblau
2010-10-06 19:59:12 +02:00
committed by David Lichteblau
parent a939970f4b
commit 377f8275f2

View File

@ -26,7 +26,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.~%"))