From 9094a0b51de5cd51b3f759f27ca7b0fe90089c1c Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 8 Apr 2004 02:24:45 +0000
Subject: [PATCH] Make portable to cltl1 gcl

---
 ansi-tests/compile-and-load.lsp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/compile-and-load.lsp b/ansi-tests/compile-and-load.lsp
index d7f2757c..3871970a 100644
--- a/ansi-tests/compile-and-load.lsp
+++ b/ansi-tests/compile-and-load.lsp
@@ -1,4 +1,5 @@
-(in-package :common-lisp-user)
+#-(and gcl (not ansi-cl)) (in-package :common-lisp-user)
+#+(and gcl (not ansi-cl)) (in-package "USER")
 
 #+allegro
 (progn
@@ -7,7 +8,7 @@
     (push :lower-case *features*)))
 
 (eval-when (:load-toplevel :compile-toplevel :execute)
-  (intern "==>" "CL-USER")
+  ;; (intern "==>" "CL-USER")
   (unless (fboundp 'compile-file-pathname)
     (defun compile-file-pathname (pathname)
       (make-pathname :defaults pathname :type "o"))))
-- 
GitLab