Skip to content
Snippets Groups Projects
Commit 44790863 authored by pfdietz's avatar pfdietz
Browse files

The feature for cmucl is :cmu, not :cmucl

parent 2c7f734d
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;; (pushnew :ansi-tests-strict-initial-element *features*) ;; (pushnew :ansi-tests-strict-initial-element *features*)
#+allegro (run-shell-command "rm -f *.fasl") #+allegro (run-shell-command "rm -f *.fasl")
#+cmucl (run-program "rm -f *.x86f") #+cmu (run-program "rm -f *.x86f")
(load "gclload1.lsp") (load "gclload1.lsp")
(load "gclload2.lsp") (load "gclload2.lsp")
...@@ -24,4 +24,4 @@ ...@@ -24,4 +24,4 @@
(time (regression-test:do-tests)) (time (regression-test:do-tests))
#+allegro :exit #+allegro :exit
#+(or cmucl sbcl gcl) (quit) #+(or cmu sbcl gcl) (quit)
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
#+allegro (run-shell-command "rm -f *.fasl") #+allegro (run-shell-command "rm -f *.fasl")
#+allegro (setq *enclose-printer-errors* nil) #+allegro (setq *enclose-printer-errors* nil)
#+cmucl (run-program "rm -f *.x86f") #+cmu (run-program "rm -f *.x86f")
(load "gclload1.lsp") (load "gclload1.lsp")
(load "gclload2.lsp") (load "gclload2.lsp")
...@@ -20,7 +20,13 @@ ...@@ -20,7 +20,13 @@
(rt:disable-note :assume-no-gray-streams)) (rt:disable-note :assume-no-gray-streams))
(in-package :cl-test) (in-package :cl-test)
;;; These two tests will misbehave if the tests are being
;;; invoked from a file that is being loaded, so remove them
(when *load-pathname*
(mapc #'regression-test:rem-test '(load-pathname.1 load-truename.1)))
(time (regression-test:do-tests)) (time (regression-test:do-tests))
#+allegro (cl-user::exit) #+allegro (cl-user::exit)
#+(or cmucl sbcl gcl armedbear) (cl-user::quit) #+(or cmu sbcl gcl armedbear) (cl-user::quit)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment