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