Commit d70a8f82 authored by Robert Goldman's avatar Robert Goldman

Correctly conditionalize LW:BMP-CHAR char type.

parent c009677e
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment