list_order.4

Gbp-Pq: Name list_order.4

diff --git a/lsp/gcl_directory.lsp b/lsp/gcl_directory.lsp
index 30c0534b692709f8dda01fab6b8738860c5ef31a..9da15b428434bcc16c5785f03fe4b0cd4da5d1d6 100644 (file)
--- a/lsp/gcl_directory.lsp
+++ b/lsp/gcl_directory.lsp
@@ -62,7 +62,7 @@
                     (when (pathname-match-p dir v)
                       (push (merge-pathnames (parse-namestring dir nil *default-pathname-defaults* :start pos) pexp nil) r)))
                   :file)
-       (when (pathname-match-p dir v) (push pexp r))))
+       (when (pathname-match-p dir v) (push (pathname (copy-seq (namestring pexp))) r))))
    (make-frame ""))
   r)