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 :)
Thanks,
Joyce
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)))
#+(or)
;;test
_______________________________________________
asdf-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
