diff --git a/ansi-tests/compile-and-load.lsp b/ansi-tests/compile-and-load.lsp index d7f2757c041a5c8f34e79509ef89938413a8eaf7..3871970a6ca63dff36c8487dd119e8d9373dfeb5 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"))))