Skip to content
Snippets Groups Projects
Commit 01b3ad5e authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix test-program, etc.

parent dd7e591c
No related branches found
No related tags found
No related merge requests found
...@@ -10,9 +10,6 @@ ...@@ -10,9 +10,6 @@
(asdf-test::frob-packages) (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 () (defun make-hello-image ()
(operate 'load-fasl-op :hello-world-example) (operate 'load-fasl-op :hello-world-example)
(operate 'image-op :hello-world-example)) (operate 'image-op :hello-world-example))
......
...@@ -8,8 +8,6 @@ ...@@ -8,8 +8,6 @@
(assert (find-system :hello-world-example)) (assert (find-system :hello-world-example))
#-mkcl
(progn
;; Try to load lisp-invocation from xcvb ;; Try to load lisp-invocation from xcvb
(setf *central-registry* (setf *central-registry*
(list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF (list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF
...@@ -25,8 +23,6 @@ ...@@ -25,8 +23,6 @@
;; Disable any user source registry. ;; Disable any user source registry.
(initialize-source-registry `(:source-registry :ignore-inherited-configuration)) (initialize-source-registry `(:source-registry :ignore-inherited-configuration))
(trace run-program)
(DBG "test image-op") (DBG "test image-op")
(defparameter img (output-file (make-operation 'image-op) (find-system :hello-world-example))) (defparameter img (output-file (make-operation 'image-op) (find-system :hello-world-example)))
(assert (absolute-pathname-p img)) (assert (absolute-pathname-p img))
......
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