File clisp-2.39-clx.dif of Package clisp

Overview Repositories Revisions Requests Users Attributes Meta

File clisp-2.39-clx.dif of Package clisp (Revision a9a5a9131f6477b7e7c79c441b852467)

Currently displaying revision a9a5a9131f6477b7e7c79c441b852467 , Show latest

---
 modules/clx/new-clx/clx.f |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

--- a/modules/clx/new-clx/clx.f
+++ b/modules/clx/new-clx/clx.f
@@ -1721,7 +1721,8 @@ static void general_lookup (object type)
   DEFUN(XLIB:##L##-ID,xxx)                                              \
     { VALUES1(make_uint29((XID)get_##c (popSTACK()))); }                \
   DEFUN(XLIB:##L##-EQUAL,xxx yyy)                                       \
-    { VALUES_IF(get_##c (popSTACK()) == get_##c (popSTACK())); }        \
+    { object _last = popSTACK();                                        \
+      VALUES_IF(get_##c (popSTACK()) == get_##c (_last)); }             \
   DEFUN(XLIB:LOOKUP-##L,display xxx)                                    \
     { general_lookup (`XLIB::##L##`); }
 
@@ -1738,7 +1739,8 @@ static void general_lookup (object type)
   DEFUN(XLIB:##L##-P,xxx)                                               \
     { VALUES_IF(c##_p (popSTACK())); }                                  \
   DEFUN(XLIB:##L##-EQUAL,xxx yyy)                                       \
-    { VALUES_IF(get_##c (popSTACK()) == get_##c (popSTACK())); }
+    { object _last = popSTACK();                                        \
+      VALUES_IF(get_##c (popSTACK()) == get_##c (_last)); }
 
 
 /* -----------------------------------------------------------------------

Places

File clisp-2.39-clx.dif of Package clisp (Revision a9a5a9131f6477b7e7c79c441b852467)

Places