Commit 26e6497f authored by Elias Pipping's avatar Elias Pipping

Merge branch 'use-lispworks7+-feature' into 'master'

Use lispworks7+ feature



See merge request !6
parents 95e9b113 fcd8005f
...@@ -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