Fix test-program, etc.

(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))

(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

;; 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))