Commit fcd8005f authored by Elias Pipping's avatar Elias Pipping

Use lispworks7+ feature

parent 37fcb4ba
...@@ -204,8 +204,7 @@ Returns two values: \(A B C\) and \(1 2 3\)." ...@@ -204,8 +204,7 @@ 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
#+(and lispworks (not (or lispworks4 lispworks5 lispworks6))) #+lispworks7+ lw:bmp-char
lw:bmp-char
#+lispworks lw:simple-char #+lispworks lw:simple-char
character) character)
:unless (and next (subtypep next type)) :unless (and next (subtypep next type))
......
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