diff --git a/asdf.lisp b/asdf.lisp index 1e1118d2a2cf675fc689d1c4a92d1f465fc593a8..ea96382e3a95de4fc832b44294b61a3947afa73a 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -448,12 +448,11 @@ ways that the filename components can be missing are for it to be `nil`, 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))))) - (and (check-one (pathname-name pathname)) - (check-one (pathname-type pathname)))))) + (flet ((check-one (x) + (not (null (member x '(nil :unspecific "") + :test 'equal))))) + (and (check-one (pathname-name pathname)) + (check-one (pathname-type pathname))))) #+(or) ;;test @@ -468,6 +467,7 @@ actually-existing directory." (make-pathname :type :unspecific :directory '(:absolute "tmp")) (make-pathname :name :unspecific :directory '(:absolute "tmp")) (make-pathname :name :unspecific :directory '(:absolute "tmp")) + (make-pathname :type "" :directory '(:absolute "tmp")) )) (defun ensure-directory-pathname (pathname) @@ -1314,9 +1314,9 @@ Returns the new tree (which probably shares structure with the old one)" "~&The value specified for ~(~A~) ~A is ~W") type name value)) -(defun check-component-input (type name weakly-depends-on depends-on components in-order-to) +(defun check-component-input (type name weakly-depends-on + depends-on components in-order-to) "A partial test of the values of a component." - (when weakly-depends-on (warn "We got one! XXXXX")) (unless (listp depends-on) (sysdef-error-component ":depends-on must be a list." type name depends-on))