From 01b3ad5ec129f751df420cbd439145b39c03b115 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Mon, 17 Mar 2014 16:20:33 -0400 Subject: [PATCH] Fix test-program, etc. --- test/make-hello-world.lisp | 3 --- test/test-program.script | 4 ---- 2 files changed, 7 deletions(-) diff --git a/test/make-hello-world.lisp b/test/make-hello-world.lisp index 9aca037f..cddb2ce6 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 f499696a..b0b1af9c 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)) -- GitLab