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