Version_2_6_13pre35

Gbp-Pq: Name Version_2_6_13pre35

diff --git a/o/predicate.c b/o/predicate.c
index 8d4f942ef0226f5fd4d36c04da1c4626f93af3f3..f37a9604539a89d3aad86a40a05c1d658e668196 100755 (executable)
--- 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) {