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\)." ...@@ -206,7 +206,9 @@ Returns two values: \(A B C\) and \(1 2 3\)."
#-scl base-char #-scl base-char
;; LW6 has BASE-CHAR < SIMPLE-CHAR < CHARACTER ;; LW6 has BASE-CHAR < SIMPLE-CHAR < CHARACTER
;; LW7 has BASE-CHAR < BMP-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) character)
:unless (and next (subtypep next type)) :unless (and next (subtypep next type))
:collect type) 'vector)) :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