Loading uiop/utility.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -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)) Loading Loading
uiop/utility.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -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)) Loading