Commit 113e55a5 authored by Karsten Poeck's avatar Karsten Poeck
Browse files

Silence ./test/run-tests.sh -l clasp

parent ee9a35ac
...@@ -726,6 +726,9 @@ is bound, write a message and exit on an error. If ...@@ -726,6 +726,9 @@ is bound, write a message and exit on an error. If
`(do-test-load-systems ',x)) `(do-test-load-systems ',x))
(defun do-test-load-systems (systems) (defun do-test-load-systems (systems)
#+clasp
(with-compilation-unit () (load-asdf-lisp))
#-clasp
(load-asdf-lisp) (load-asdf-lisp)
(dolist (sys systems) (dolist (sys systems)
(format t "~&Trying to load ~A~%" sys) (format t "~&Trying to load ~A~%" sys)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment