From a6bbd49de14d3f4102837a8a6327b2f84f084af5 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 8 Apr 1992 00:31:43 +0000
Subject: [PATCH] Don't try to define the type REAL under CMUCL, because we
 have a real REAL.

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

diff --git a/clx/clx.lisp b/clx/clx.lisp
index 39928a8df..157d7bdc9 100644
--- a/clx/clx.lisp
+++ b/clx/clx.lisp
@@ -161,7 +161,7 @@
 
 (deftype card4 () '(unsigned-byte 4))
 
-#-clx-ansi-common-lisp
+#-(or clx-ansi-common-lisp cmu)
 (deftype real (&optional (min '*) (max '*))
   (labels ((convert (limit floatp)
 	     (typecase limit
-- 
GitLab