Loading test/asdf-pathname-test.script +1 −1 Original line number Diff line number Diff line Loading @@ -364,7 +364,7 @@ :direction :output :if-exists :supersede :if-does-not-exist :create) (setup-asdftest-logical-host :root root) #+(and asdf-test-logical-pathname (not clisp)) #+(and asdf-test-logical-pathname) (assert-pathname-equal (make-pathname :host "ASDFTEST" :directory '(:absolute "system2" "module4") :name nil :type nil) Loading test/test-logical-pathname.script +3 −0 Original line number Diff line number Diff line Loading @@ -48,6 +48,9 @@ (load-system :test-logical-pathname :force t) #+abcl (leave-test "ABCL translates logical pathnames in *LOAD-PATHNAME*" 0) #+clisp (unless (version<= "2.50" (first (split-string (lisp-implementation-version) :separator "-+ "))) (leave-test "CLISP 2.49 translates logical pathnames in *LOAD-PATHNAME*" 0)) (defparameter sys (find-system :test-logical-pathname)) (assert (logical-pathname-p (component-pathname sys))) Loading Loading
test/asdf-pathname-test.script +1 −1 Original line number Diff line number Diff line Loading @@ -364,7 +364,7 @@ :direction :output :if-exists :supersede :if-does-not-exist :create) (setup-asdftest-logical-host :root root) #+(and asdf-test-logical-pathname (not clisp)) #+(and asdf-test-logical-pathname) (assert-pathname-equal (make-pathname :host "ASDFTEST" :directory '(:absolute "system2" "module4") :name nil :type nil) Loading
test/test-logical-pathname.script +3 −0 Original line number Diff line number Diff line Loading @@ -48,6 +48,9 @@ (load-system :test-logical-pathname :force t) #+abcl (leave-test "ABCL translates logical pathnames in *LOAD-PATHNAME*" 0) #+clisp (unless (version<= "2.50" (first (split-string (lisp-implementation-version) :separator "-+ "))) (leave-test "CLISP 2.49 translates logical pathnames in *LOAD-PATHNAME*" 0)) (defparameter sys (find-system :test-logical-pathname)) (assert (logical-pathname-p (component-pathname sys))) Loading