From dcaa65cfe46e85dbaa8ae273f2f07573eca217d2 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Sun, 10 Oct 2021 14:18:39 +0100 Subject: [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 --- o/predicate.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/o/predicate.c b/o/predicate.c index 8d4f942e..f37a9604 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) { -- 2.30.2