From: Camm Maguire <camm@debian.org>
Date: Thu, 11 Aug 2022 17:16:42 +0000 (+0100)
Subject: <short summary of the patch>
X-Git-Tag: archive/raspbian/2.7.1-4+rpi1~1^2~1^2~72
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=73fa9e700b5a80464d75cb35a8d2612588c6dbab;p=gcl27.git

<short summary of the patch>

TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.

gcl (2.6.12-57) unstable; urgency=medium

  * list_order.13

Gbp-Pq: Name list_order.4
---

diff --git a/lsp/gcl_directory.lsp b/lsp/gcl_directory.lsp
index 30c0534..9da15b4 100644
--- 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)