Commit fcd8005f authored by Elias Pipping's avatar Elias Pipping
Browse files

Use lispworks7+ feature

parent 37fcb4ba
Loading
Loading
Loading
Loading
+1 −2
Original line number Diff line number Diff line
@@ -204,8 +204,7 @@ 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
                       #+(and lispworks (not (or lispworks4 lispworks5 lispworks6)))
                       lw:bmp-char
                       #+lispworks7+ lw:bmp-char
                       #+lispworks lw:simple-char
                       character)
                     :unless (and next (subtypep next type))