Skip to content
Snippets Groups Projects
Commit 713dbc5e authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Remove one more occurence of the obsolete :current-directory from documentation (lp#648808).

Also alter a test so that a message will be displayed when ABCL passes.
parent 48e2c7f4
No related branches found
No related tags found
No related merge requests found
...@@ -2202,7 +2202,6 @@ RELATIVE-COMPONENT-DESIGNATOR := ...@@ -2202,7 +2202,6 @@ RELATIVE-COMPONENT-DESIGNATOR :=
PATHNAME | ;; pathname unless last component, directory is assumed. 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 | ;; 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 :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 :UID | ;; current UID -- not available on Windows
:USER ;; current USER name -- NOT IMPLEMENTED(!) :USER ;; current USER name -- NOT IMPLEMENTED(!)
......
...@@ -70,11 +70,14 @@ ...@@ -70,11 +70,14 @@
(create-asd-files) (create-asd-files)
(create-conf-files) (create-conf-files)
#+abcl (trace directory)
(initialize-source-registry (initialize-source-registry
`(:source-registry (:include ,(under-test-directory "conf.d/")) `(:source-registry (:include ,(under-test-directory "conf.d/"))
:ignore-inherited-configuration)) :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". #-abcl ;; disable for ABCL for now. Hmmm. We need a better way to handle "known failures".
(assert (assert
(equal (namestring (system-relative-pathname :foo3 "bar/baz.lisp")) (equal (namestring (system-relative-pathname :foo3 "bar/baz.lisp"))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment