Commit b427599f authored by Robert Goldman's avatar Robert Goldman

Fix typo.

Mistakenly committed after refilling a comment and emacs refilled it
wrong, so that comment was incorrectly not all prefixed by comment
parent 0e8c2c1b
......@@ -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.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment