[asdf-devel] Small fixup of bogus function in directory-pathname-p

Joyce Chen jchen at itasoftware.com
Tue Jul 21 17:08:05 UTC 2009

Fare's small fixup of bogus function in directory-pathname-p.
ccl complained about x not being used.

I don't have commit privileges, so if someone could kindly review the
change and commit it :)


diff --git a/asdf.lisp b/asdf.lisp
index 1e1118d..714c529 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -448,12 +448,11 @@ ways that the filename components can be missing
are for i

 Note that this does _not_ check to see that `pathname` points to an
 actually-existing directory."
-  (let ((null-components (list  nil :unspecific "")))
-    (flet ((check-one (x)
-            (not (null (member (pathname-name pathname) null-components
-                               :test 'equal)))))
+  (flet ((check-one (x)
+          (member x '(nil :unspecific "") :test 'equal)))
       (and (check-one (pathname-name pathname))
-          (check-one (pathname-type pathname))))))
+          (check-one (pathname-type pathname))
+          t)))


More information about the asdf-devel mailing list