From 2a14dc3471be3c54b264647031fc19c2549d267a Mon Sep 17 00:00:00 2001
From: Camm Maguire <camm@debian.org>
Date: Thu, 11 Aug 2022 18:16:42 +0100
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.

gcl (2.6.12-27) unstable; urgency=medium

  * Version_2_6_13pre33; mips64 relocs; stack saving tail-recursive equal.

Gbp-Pq: Name Version_2_6_13pre34
---
 unixport/sys_init.lsp.in | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/unixport/sys_init.lsp.in b/unixport/sys_init.lsp.in
index 218eabd..0bd8cf9 100644
--- a/unixport/sys_init.lsp.in
+++ b/unixport/sys_init.lsp.in
@@ -81,5 +81,5 @@
 #+ansi-cl (import 'si::(clines defentry defcfun object void int double quit bye gbc system) :user)
 
 (let* ((i 4096)(j (si::equal-tail-recursion-check i)))
-  (unless (eql i j)
+  (unless (<= (ash i -1) j)
     (warn "equal is not tail recursive ~s ~s" i j)))
-- 
2.30.2