Commit d70a8f82 authored by Robert Goldman's avatar Robert Goldman
Browse files

Correctly conditionalize LW:BMP-CHAR char type.

parent c009677e

uiop/utility.lisp

+3 −1
Original line number Diff line number Diff line
@@ -206,7 +206,9 @@ Returns two values: \(A B C\) and \(1 2 3\)." 
                       #-scl base-char

                       ;; LW6 has BASE-CHAR < SIMPLE-CHAR < CHARACTER

                       ;; LW7 has BASE-CHAR < BMP-CHAR < SIMPLE-CHAR = CHARACTER

                       #+lispworks7 lw:bmp-char #+lispworks lw:simple-char

                       #+(and lispworks (not (or lispworks4 lispworks5 lispworks6)))

                       lw:bmp-char

                       #+lispworks lw:simple-char

                       character)

                     :unless (and next (subtypep next type))

                     :collect type) 'vector))