Newer
Older
;;; -*- Lisp -*-
(load "script-support.lisp")
(load-asdf)
Francois-Rene Rideau
committed
#-gcl<2.7
(setf (logical-pathname-translations "ASDF")
#+(or allegro clisp)
`(("**;*.*.*" ,(asdf::wilden *asdf-directory*)))
#-(or allegro clisp)
`(("**;*.asd.*" ,(make-pathname :type "asd" :defaults (asdf::wilden *asdf-directory*)))
("**;*.lisp.*" ,(make-pathname :type "lisp" :defaults (asdf::wilden *asdf-directory*)))
("**;*.*.*" ,(resolve-location
`(,*asdf-directory* "build/fasls" :implementation "logical-host-asdf")
:wilden t))))
(quit-on-error
(format t "~S~%" (translate-logical-pathname "ASDF:test;test-force.asd"))
(format t "~S~%" (truename "ASDF:test;test-force.asd"))
Francois-Rene Rideau
committed
#-(or xcl gcl<2.7)
(progn
(format t "Test logical pathnames in central registry~%")
(setf *central-registry* '(#p"ASDF:test;"))
(initialize-source-registry '(:source-registry :ignore-inherited-configuration))
Francois-Rene Rideau
committed
(load-system :test-logical-pathname :force t))
Francois-Rene Rideau
committed
#-(or xcl gcl<2.7)
(progn
(format t "Test logical pathnames in source-registry, non-recursive~%")
Francois-Rene Rideau
committed
(clear-system :test-logical-pathname)
(setf *central-registry* '())
(initialize-source-registry
'(:source-registry (:directory #p"ASDF:test;") :ignore-inherited-configuration))
(load-system :test-logical-pathname :force t :verbose t))
Francois-Rene Rideau
committed
#-(or xcl gcl<2.7)
(progn
(format t "Test logical pathnames in source-registry, recursive~%")
Francois-Rene Rideau
committed
(clear-system :test-logical-pathname)
(setf *central-registry* '())
(initialize-source-registry
;; Bug: Allegro Express 8.2 incorrectly reads #p"ASDF:" as relative.
Francois-Rene Rideau
committed
'(:source-registry (:tree #-allegro #p"ASDF:" #+allegro #.(asdf::pathname-root #p"ASDF:"))
:ignore-inherited-configuration))
Francois-Rene Rideau
committed
(load-system :test-logical-pathname :force t))
(format t "Done~%"))