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