.

OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/clisp?expand=0&rev=65

clisp-link.dif

@@ -1,6 +1,7 @@
 ---
  src/clisp-link.in |    2 +-
- 1 file changed, 1 insertion(+), 1 deletion(-)
+ src/lispbibl.d    |    4 +++-
+ 2 files changed, 4 insertions(+), 2 deletions(-)
 
 --- src/clisp-link.in
 +++ src/clisp-link.in	2016-11-29 12:56:40.625559126 +0000
@@ -24,3 +25,12 @@
  #endif
  /* Use 'uintX' and 'sintX' for Integers with approximately given width
   and a minumum of storage space. */
+@@ -11622,7 +11622,7 @@ re-enters the corresponding top-level lo
+ #define pushSTACK(obj)  (STACK_(-1) = (obj), STACK skipSTACKop -1)
+   /* Almost equivalent with *--STACK = obj  resp.  *STACK++ = obj  , but
+    Careful: first enter the object into STACK_(-1), THEN modify the STACK! */
+-#define popSTACK()  (STACK skipSTACKop 1, STACK_(-1))
++#define popSTACK()  ({STACK skipSTACKop 1; STACK_(-1);})
+ #define skipSTACK(n)  (STACK skipSTACKop (sintP)(n))
+ 
+ #if defined(GNU) && defined(M68K) && !defined(NO_ASM) && !defined(WIDE) && defined(STACK_register)