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