diff --git a/doc/asdf.texinfo b/doc/asdf.texinfo index a07f633a51c0ee7f26fb34602d8c3134fae38ace..a6b1196e1e530dbbbf5dfc18ccc33553e4860868 100644 --- a/doc/asdf.texinfo +++ b/doc/asdf.texinfo @@ -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(!) diff --git a/test/test-configuration.script b/test/test-configuration.script index d0e312018b5a705b3310d068bcb8470d0d1573da..d6621079533e0775e9ccb36778ec0626ec6c1a6e 100644 --- a/test/test-configuration.script +++ b/test/test-configuration.script @@ -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"))