From: Camm Maguire <camm@debian.org>
Date: Sun, 13 Nov 2022 12:55:14 +0000 (+0000)
Subject: <short summary of the patch>
X-Git-Tag: archive/raspbian/2.7.1-4+rpi1~2^2^2~112
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=fc90e7ebae97a678c35863c7978baae073386be7;p=gcl27.git

<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_13pre34; mips64 relocs; stack saving tail-recursive equal.

Gbp-Pq: Name Version_2_6_13pre35
---

diff --git a/o/predicate.c b/o/predicate.c
index 8d4f942..f37a960 100755
--- a/o/predicate.c
+++ b/o/predicate.c
@@ -501,6 +501,12 @@ oequal(object x,object y) {
 DEFUN_NEW("EQUAL",object,fLequal,LISP,2,2,NONE,OO,OO,OO,OO,(object x0,object x1),"") {
   RETURN1(equal(x0, x1) ? Ct : Cnil);
 }
+#ifdef STATIC_FUNCTION_POINTERS
+object
+fLequal(object x,object y) {
+  return FFN(fLequal)(x,y);
+}
+#endif
 
 bool
 equalp1(register object x, register object y) {