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