diff --git a/test/make-hello-world.lisp b/test/make-hello-world.lisp index 9aca037f29d847d84c58f50dd10aa4373cb61d43..cddb2ce603c9dbbdc89d14653976f6a6f8290baa 100644 --- a/test/make-hello-world.lisp +++ b/test/make-hello-world.lisp @@ -10,9 +10,6 @@ (asdf-test::frob-packages) -(dolist (s '(:asdf :uiop :asdf/defsystem :uiop)) - (assert (asdf::builtin-system-p (find-system s)) () "System ~A not builtin(!)" s)) - (defun make-hello-image () (operate 'load-fasl-op :hello-world-example) (operate 'image-op :hello-world-example)) diff --git a/test/test-program.script b/test/test-program.script index f499696aea43a94af6c817d7b7395c5563309663..b0b1af9c571210505fc79d36ba71061aa0639c58 100644 --- a/test/test-program.script +++ b/test/test-program.script @@ -8,8 +8,6 @@ (assert (find-system :hello-world-example)) -#-mkcl -(progn ;; Try to load lisp-invocation from xcvb (setf *central-registry* (list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF @@ -25,8 +23,6 @@ ;; Disable any user source registry. (initialize-source-registry `(:source-registry :ignore-inherited-configuration)) -(trace run-program) - (DBG "test image-op") (defparameter img (output-file (make-operation 'image-op) (find-system :hello-world-example))) (assert (absolute-pathname-p img))