From 372926bfbd9e6b7e9555ece750eda858fe6996cb Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 16 Nov 1991 09:27:43 +0000
Subject: [PATCH] Don't deftype base-char under CMUCL.

---
 clx/clx.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/clx/clx.lisp b/clx/clx.lisp
index 6f345e6d0..39928a8df 100644
--- a/clx/clx.lisp
+++ b/clx/clx.lisp
@@ -171,7 +171,7 @@
     `(or (float ,(convert min t) ,(convert max t))
 	 (rational ,(convert min nil) ,(convert max nil)))))
 
-#-clx-ansi-common-lisp
+#-(or clx-ansi-common-lisp cmu)
 (deftype base-char ()
   'string-char)
 
-- 
GitLab