test-sysdef-asdf.script 331 Bytes
Newer Older
1
;;; -*- Lisp -*-
2
(load "script-support.lisp")
3
4
(load-asdf)

5
(with-test ()
6
7
8
9
 (asdf:initialize-source-registry '(:source-registry :ignore-inherited-configuration))
 (asdf:load-system :asdf)
 (asdf:initialize-source-registry `(:source-registry (:directory ,*asdf-directory*) :ignore-inherited-configuration))
 (asdf:load-system :asdf))