diff --git a/uiop/filesystem.lisp b/uiop/filesystem.lisp index 6ceb8f1db4f9472b579c327778eedc3e58352bc7..86c7d1fb1d04cdcc4cc8b7fcdafb847d603ab5af 100644 --- a/uiop/filesystem.lisp +++ b/uiop/filesystem.lisp @@ -213,7 +213,8 @@ but the behavior in presence of symlinks is not portable. Use IOlib to handle su (unless (member (pathname-directory pattern) '(() (:relative)) :test 'equal) (error "Invalid file pattern ~S for logical directory ~S" pattern directory)) (setf pattern (make-pathname-logical pattern (pathname-host dir)))) - (let* ((pat (merge-pathnames* pattern dir)) the following complex block is + (let* ((pat (merge-pathnames* pattern dir)) + ;; the following complex block is ;; needed because clisp handles "*" pathnames differently from ;; "*.*" -- the former is more more general than the latter. ;; GCL does something odd, too, but I don't know what this is.