Loading doc/asdf.texinfo +0 −1 Original line number Diff line number Diff line Loading @@ -2202,7 +2202,6 @@ RELATIVE-COMPONENT-DESIGNATOR := PATHNAME | ;; pathname unless last component, directory is assumed. :IMPLEMENTATION | ;; a directory based on implementation, e.g. sbcl-1.0.32.30-linux-x86-64 :IMPLEMENTATION-TYPE | ;; a directory based on lisp-implementation-type only, e.g. sbcl :CURRENT-DIRECTORY | ;; all components of the current directory, without the :absolute :UID | ;; current UID -- not available on Windows :USER ;; current USER name -- NOT IMPLEMENTED(!) Loading test/test-configuration.script +5 −2 Original line number Diff line number Diff line Loading @@ -70,11 +70,14 @@ (create-asd-files) (create-conf-files) #+abcl (trace directory) (initialize-source-registry `(:source-registry (:include ,(under-test-directory "conf.d/")) :ignore-inherited-configuration)) #+abcl (when (find-system :foo3 nil) (format t "~&Great news: ABCL can now find system FOO3 in a subdirectory!~%")) #-abcl ;; disable for ABCL for now. Hmmm. We need a better way to handle "known failures". (assert (equal (namestring (system-relative-pathname :foo3 "bar/baz.lisp")) Loading Loading
doc/asdf.texinfo +0 −1 Original line number Diff line number Diff line Loading @@ -2202,7 +2202,6 @@ RELATIVE-COMPONENT-DESIGNATOR := PATHNAME | ;; pathname unless last component, directory is assumed. :IMPLEMENTATION | ;; a directory based on implementation, e.g. sbcl-1.0.32.30-linux-x86-64 :IMPLEMENTATION-TYPE | ;; a directory based on lisp-implementation-type only, e.g. sbcl :CURRENT-DIRECTORY | ;; all components of the current directory, without the :absolute :UID | ;; current UID -- not available on Windows :USER ;; current USER name -- NOT IMPLEMENTED(!) Loading
test/test-configuration.script +5 −2 Original line number Diff line number Diff line Loading @@ -70,11 +70,14 @@ (create-asd-files) (create-conf-files) #+abcl (trace directory) (initialize-source-registry `(:source-registry (:include ,(under-test-directory "conf.d/")) :ignore-inherited-configuration)) #+abcl (when (find-system :foo3 nil) (format t "~&Great news: ABCL can now find system FOO3 in a subdirectory!~%")) #-abcl ;; disable for ABCL for now. Hmmm. We need a better way to handle "known failures". (assert (equal (namestring (system-relative-pathname :foo3 "bar/baz.lisp")) Loading