From cfbc2a4d455e010a3de64fccd161641b96fb79b7 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 5 May 2005 13:22:45 +0000
Subject: [PATCH] Don't compile the meaningless user generic function in cmucl
 (it's buggy).

---
 ansi-tests/universe.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/universe.lsp b/ansi-tests/universe.lsp
index 8d38ad2c..cd6ecd23 100644
--- a/ansi-tests/universe.lsp
+++ b/ansi-tests/universe.lsp
@@ -456,7 +456,8 @@
 
 (eval-when (:load-toplevel :execute)
   (compile 'meaningless-user-function-for-universe)
-  (compile 'meaningless-user-generic-function-for-universe)
+  ;; Conditionalize to avoid a cmucl bug
+  #-cmu (compile 'meaningless-user-generic-function-for-universe)
   )
 
 (defparameter *functions*
-- 
GitLab