From: Camm Maguire <camm@debian.org>
Date: Mon, 30 Dec 2019 15:46:22 +0000 (+0000)
Subject: pathnames1.13
X-Git-Tag: archive/raspbian/2.6.12-92+rpi1^2~60
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=58ca42befb294de4d8b9b5131f77d45524b84913;p=gcl.git

pathnames1.13


Gbp-Pq: Name pathnames1.13
---

diff --git a/lsp/gcl_iolib.lsp b/lsp/gcl_iolib.lsp
index 60a18d99..d3bca684 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))