From b427599fa958582983af405dcbb60409a815b4e0 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@sift.net> Date: Mon, 27 Jun 2016 09:47:59 -0500 Subject: [PATCH] Fix typo. Mistakenly committed after refilling a comment and emacs refilled it wrong, so that comment was incorrectly not all prefixed by comment characters. --- uiop/filesystem.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/uiop/filesystem.lisp b/uiop/filesystem.lisp index 6ceb8f1db..86c7d1fb1 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. -- GitLab