From d70a8f82afb859531824e72ae32c31906b9b6e57 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@sift.net> Date: Thu, 11 Jun 2015 10:07:22 -0500 Subject: [PATCH] Correctly conditionalize LW:BMP-CHAR char type. --- uiop/utility.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/uiop/utility.lisp b/uiop/utility.lisp index d655a25d..94628800 100644 --- a/uiop/utility.lisp +++ b/uiop/utility.lisp @@ -206,7 +206,9 @@ 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 - #+lispworks7 lw:bmp-char #+lispworks lw:simple-char + #+(and lispworks (not (or lispworks4 lispworks5 lispworks6))) + lw:bmp-char + #+lispworks lw:simple-char character) :unless (and next (subtypep next type)) :collect type) 'vector)) -- GitLab