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~85
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=2601e6f2be571a48afac0a1317fd1075afa80cac;p=gcl27.git

<short summary of the patch>

Bug-Debian: https://bugs.debian.org/843303

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-46) unstable; urgency=high

  * pathnames1.12
  * Bug fix: "maintainer script(s) do not start on #!", thanks to
    treinen@debian.org</a>; (Closes: #843303).

Gbp-Pq: Name pathnames1.13
---

diff --git a/lsp/gcl_iolib.lsp b/lsp/gcl_iolib.lsp
index 60a18d9..d3bca68 100755
--- a/lsp/gcl_iolib.lsp
+++ b/lsp/gcl_iolib.lsp
@@ -460,7 +460,8 @@
 (defun load-pathname-exists (z)
   (or (probe-file z)
       (when *allow-gzipped-file*
-	(probe-file (string-concatenate (namestring z) ".gz")))))
+	(when (probe-file (string-concatenate (namestring z) ".gz"))
+	  z))))
 
 (defun load-pathname (p print if-does-not-exist external-format
 			&aux (pp (merge-pathnames p))