From 713dbc5efc56ea217d0bd2b1aa4830ec8a821a2d Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Tue, 28 Sep 2010 12:48:18 -0400
Subject: [PATCH] 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.

---
 doc/asdf.texinfo               | 1 -
 test/test-configuration.script | 7 +++++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/doc/asdf.texinfo b/doc/asdf.texinfo
index a07f633a..a6b1196e 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 d0e31201..d6621079 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"))
-- 
GitLab