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

Version_2_6_13pre34


Gbp-Pq: Name Version_2_6_13pre34
---

diff --git a/unixport/sys_init.lsp.in b/unixport/sys_init.lsp.in
index 218eabde..0bd8cf91 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)))