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
Loading
Loading
Loading
Loading
+0 −1
Original line number Diff line number Diff line
@@ -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(!)

+5 −2
Original line number Diff line number Diff line
@@ -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"))