From 0000000000000000000000000000000000000000 Mon Sep 17 00:00:00 2001
From: Camm Maguire <camm@debian.org>
Date: Mar, 03 2026 12:43:37 +0000
Subject: [PATCH] <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.

---
The information above should follow the Patch Tagging Guidelines, please
checkout https://dep.debian.net/deps/dep3/ to learn about the format. Here
are templates for supplementary fields that you might want to add:

Origin: (upstream|backport|vendor|other), (<patch-url>|commit:<commit-id>)
Bug: <upstream-bugtracker-url>
Bug-<Vendor>: <vendor-bugtracker-url>
Forwarded: (no|not-needed|<patch-forwarded-url>)
Applied-Upstream: <version>, (<commit-url>|commit:<commid-id>)
Reviewed-By: <name and email of someone who approved/reviewed the patch>

--- gcl-2.6.14.orig/cmpnew/gcl_cmpfun.lsp
+++ gcl-2.6.14/cmpnew/gcl_cmpfun.lsp
@@ -944,7 +944,7 @@
 
 (defun c2gethash (args)
   (cond ((member *value-to-go* '(top return))
-	 (let* ((nargs (inline-args args '(t t)))
+	 (let* ((nargs (inline-args args '(t t t)))
 		(base *vs*)(*vs* *vs*)
 		(r (cdr (vs-push)))(f (cdr (vs-push))))
 	   (wt-nl "{ struct htent *_z=gethash" (if *safe-compile* "_with_check" "") "(" (car nargs) "," (cadr nargs) ");")
@@ -956,10 +956,11 @@
 	   (wt-nl "base[" f "]=Ct;")
 	   (wt-nl "}}")
 	   (wt-nl "vs_top=(vs_base=base+" base ")+" (- *vs* base) ";")
-	   (unwind-exit 'fun-val nil (cons 'values 2))))
+	   (unwind-exit 'fun-val nil (cons 'values 2))
+	   (close-inline-blocks)))
 	((let ((*inline-blocks* 0)
 	       (*restore-avma*  *restore-avma*)
-	       (fd `((t t) t #.(flags rfa) 
+	       (fd `((t t t) t #.(flags rfa)
 		     ,(concatenate 'string
 				   "({struct htent *_z=gethash"
 				   (if *safe-compile* "_with_check" "")
--- gcl-2.6.14.orig/git.tag
+++ gcl-2.6.14/git.tag
@@ -1 +1 @@
-"Version_2_6_15pre18"
+"Version_2_6_15pre19"
