.

OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/clisp?expand=0&rev=130
2024-08-28 12:17:11 +00:00 · 2024-08-28 12:17:11 +00:00 · edeb62eb5f
commit edeb62eb5f
19 changed files with 2091 additions and 0 deletions
--- a/.gitattributes
+++ b/.gitattributes
@ -0,0 +1,23 @@
+## Default LFS
+*.7z filter=lfs diff=lfs merge=lfs -text
+*.bsp filter=lfs diff=lfs merge=lfs -text
+*.bz2 filter=lfs diff=lfs merge=lfs -text
+*.gem filter=lfs diff=lfs merge=lfs -text
+*.gz filter=lfs diff=lfs merge=lfs -text
+*.jar filter=lfs diff=lfs merge=lfs -text
+*.lz filter=lfs diff=lfs merge=lfs -text
+*.lzma filter=lfs diff=lfs merge=lfs -text
+*.obscpio filter=lfs diff=lfs merge=lfs -text
+*.oxt filter=lfs diff=lfs merge=lfs -text
+*.pdf filter=lfs diff=lfs merge=lfs -text
+*.png filter=lfs diff=lfs merge=lfs -text
+*.rpm filter=lfs diff=lfs merge=lfs -text
+*.tbz filter=lfs diff=lfs merge=lfs -text
+*.tbz2 filter=lfs diff=lfs merge=lfs -text
+*.tgz filter=lfs diff=lfs merge=lfs -text
+*.ttf filter=lfs diff=lfs merge=lfs -text
+*.txz filter=lfs diff=lfs merge=lfs -text
+*.whl filter=lfs diff=lfs merge=lfs -text
+*.xz filter=lfs diff=lfs merge=lfs -text
+*.zip filter=lfs diff=lfs merge=lfs -text
+*.zst filter=lfs diff=lfs merge=lfs -text
--- a/.gitignore
+++ b/.gitignore
@ -0,0 +1 @@
+.osc
--- a/README.SUSE
+++ b/README.SUSE
@ -0,0 +1,34 @@
+#
+# (C) 1997-99, SuSE GmbH, Nürnberg
+#
+
+Call of CLX
+
+
+       Please call clisp with the option '-K full' to use clx. The
+X Window System is required for the usage of clx.  Therefore the clisp
+version under /usr/lib/clisp/full/ is used.
+For some examples of clx try out in the directory demos/
+
+         clisp -K full -q -i sokoban
+
+and
+
+         clisp -K full -q -i qix
+
+----------------------------------------------------------------------------
+
+Aufruf von CLX
+
+
+      Bitte rufen Sie clisp mit der Option '-K full' auf. CLX erfordert ein
+installiertes X-Window-System.  Daher wird die entsprechende clisp-Version
+aus /usr/lib/clisp/full/ benutzt.
+Sie finden zwei Beispiele für clx im Verzeichnis demos/
+
+         clisp -K full -q -i sokoban
+
+und
+
+         clisp -K full -q -i qix
+
--- a/check-build.sh
+++ b/check-build.sh
@ -0,0 +1,43 @@
+#!/bin/bash
+#
+# Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# This file and all modifications and additions to the pristine
+# package are under the same license as the package itself.
+#
+# This script use the following variable(s):
+# 
+# - $BUILD_BASENAME
+#
+
+case $BUILD_BASENAME in
+   *ia64)
+	read -t 10 name dummy version rest < /proc/version
+	if test -z "$version" ; then
+	    echo "FATAL: can not read /proc/version" 1>&2
+	    exit 1
+	fi
+	OIFS="$IFS"
+	IFS='.-'
+	version=($version)
+	IFS="$OIFS"
+	if test ${version[0]} -lt 2 -o ${version[1]} -lt 6 -o ${version[2]} -lt 16 ; then
+	    echo "FATAL: kernel too old, need kernel >= 2.6.16 for this package" 1>&2
+	    exit 1
+	fi
+	;;
+   *)
+	;;
+esac
+
+#
+# XEN kernel may use different stack addresse range
+#
+if test -e /proc/xen; then 
+     echo "FATAL: kernel contains xen support!" 1>&2
+     exit 1
+fi
+
+#
+# Success
+#
+exit 0
--- a/clisp-2.39-ia64-wooh.dif
+++ b/clisp-2.39-ia64-wooh.dif
@ -0,0 +1,18 @@
+---
+ tests/streams.tst |    4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/tests/streams.tst b/tests/streams.tst
+--- a/tests/streams.tst
+++ b/tests/streams.tst
+@@ -1043,8 +1043,8 @@ T
+            (describe (make-array nil :element-type nil) s)))
+ T
+ 
+-(stringp (with-output-to-string (s) (describe nil s)))
+-T
+;(stringp (with-output-to-string (s) (describe nil s)))
+;T
+ 
+ ;; https://sourceforge.net/p/clisp/bugs/396/
+ (let ((s "a   b"))
--- a/clisp-2.49-clx_demos.dif
+++ b/clisp-2.49-clx_demos.dif
@ -0,0 +1,174 @@
+---
+ modules/clx/new-clx/demos/README         |    4 +--
+ modules/clx/new-clx/demos/clx-demos.lisp |    2 -
+ modules/clx/new-clx/demos/koch.lisp      |   29 +++++++++++++++++++++++++-
+ modules/clx/new-clx/demos/qix.lisp       |   30 ++++++++++++++++++++++++++-
+ modules/clx/new-clx/demos/sokoban.lisp   |   34 +++++++++++++++++++++++++++++--
+ 5 files changed, 92 insertions(+), 7 deletions(-)
+
+--- a/modules/clx/new-clx/demos/README
+++ b/modules/clx/new-clx/demos/README
+@@ -3,8 +3,8 @@ Most came with the original CLX and has
+ Some are original with CLISP (notably sokoban).
+ 
+ To try them, do
+-$ clisp -i clx-demos
+$ clisp -K full -i clx-demos
+ and read the instructions.
+ 
+ To try them all, one by one, do
+-$ clisp -i clx-demos -x '(clx-demos:run-all-demos)'
+$ clisp -K full -i clx-demos -x '(clx-demos:run-all-demos)'
+--- a/modules/clx/new-clx/demos/clx-demos.lisp
+++ b/modules/clx/new-clx/demos/clx-demos.lisp
+@@ -13,7 +13,7 @@
+ 
+ (defparameter *demos*
+   ;; (demo-name [package requirements])
+-  '((koch) (qix) (sokoban #:xpm) (greynetic) (petal) (hanoi)
+  '((greynetic) (petal) (hanoi)
+     (recurrence) (plaid) (clclock) (bball) (bwindow)))
+ 
+ (defmacro do-demos ((fun-var) &body body)
+--- a/modules/clx/new-clx/demos/koch.lisp
+++ b/modules/clx/new-clx/demos/koch.lisp
+@@ -5,7 +5,30 @@
+ ;;; See http://www.gnu.org/copyleft/gpl.html
+ ;;;
+ 
+-(in-package :clx-demos)
+(defpackage "KOCH"
+  (:use "COMMON-LISP" "XLIB" "EXT")
+  (:import-from "SYS" "GETENV")
+  (:shadowing-import-from "XLIB" "CHAR-WIDTH") ; EXT has CHAR-WIDTH
+  (:export "KOCH"))
+
+(in-package :koch)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defun x-host-display (&optional (disp (getenv "DISPLAY")))
+  "Parse the DISPLAY environment variable.
+Return 3 values: host, server, screen."
+  (if disp
+      (let* ((pos1 (position #\: disp))
+             (pos2 (and pos1 (position #\. disp :start pos1))))
+        (values (subseq disp 0 pos1)
+                (if pos1 (parse-integer (subseq disp (1+ pos1) pos2)) 0)
+                (if pos2 (parse-integer (subseq disp (1+ pos2))) 0)))
+      (values "" 0 0)))
+
+(defun x-open-display ()
+  "Open the appropriate X display."
+  (multiple-value-bind (host di) (x-host-display)
+    (xlib:open-display host :display di)))
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ 
+ (defun koch-point (cx width/2 height/2 scale)
+   (list (round (+ width/2 (* scale width/2 (realpart cx))))
+@@ -121,4 +144,8 @@ Returns the new list and an indicator of
+       (xlib:unmap-window win)
+       (xlib:display-finish-output dpy))))
+ 
+(format t "~& Koch snoflake:~%
+  (koch:koch :width :height :delay :x :y :scale :font)
+~% Call (koch:koch)~%~%")
+
+ (provide "koch")
+--- a/modules/clx/new-clx/demos/qix.lisp
+++ b/modules/clx/new-clx/demos/qix.lisp
+@@ -14,7 +14,30 @@
+ ;;;; o or a spline option?!
+ ;;;;
+ 
+-(in-package :clx-demos)
+(defpackage "QIX"
+  (:use "COMMON-LISP" "XLIB" "EXT")
+  (:import-from "SYS" "GETENV")
+  (:shadowing-import-from "XLIB" "CHAR-WIDTH") ; EXT has CHAR-WIDTH
+  (:export "QIX"))
+
+(in-package :qix)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defun x-host-display (&optional (disp (getenv "DISPLAY")))
+  "Parse the DISPLAY environment variable.
+Return 3 values: host, server, screen."
+  (if disp
+      (let* ((pos1 (position #\: disp))
+             (pos2 (and pos1 (position #\. disp :start pos1))))
+        (values (subseq disp 0 pos1)
+                (if pos1 (parse-integer (subseq disp (1+ pos1) pos2)) 0)
+                (if pos2 (parse-integer (subseq disp (1+ pos2))) 0)))
+      (values "" 0 0)))
+
+(defun x-open-display ()
+  "Open the appropriate X display."
+  (multiple-value-bind (host di) (x-host-display)
+    (xlib:open-display host :display di)))
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ 
+ (defvar *offset* 3)
+ (defvar *delta* 6)
+@@ -87,4 +110,9 @@
+       (xlib:unmap-window win)
+       (xlib:display-finish-output dpy))))
+ 
+;; since we have no herald, simply dump it:
+(format t "~& The famous swirling vectors.~%
+ (qix:qix :host :display :dpy :width :height :delay :nqixs :nlines)
+~% Call (qix:qix) or (qix:qix :delay 0)~%~%")
+
+ (provide "qix")
+--- a/modules/clx/new-clx/demos/sokoban.lisp
+++ b/modules/clx/new-clx/demos/sokoban.lisp
+@@ -41,7 +41,30 @@
+ ;;;;  - maximum field size is hard wired to 20x20. (This is not in the LISP spirit!)
+ ;;;;  - sometimes the programm could not count correctly ...
+ 
+-(in-package :clx-demos)
+(defpackage "SOKOBAN"
+  (:use "COMMON-LISP")
+  (:import-from "SYS" "GETENV")
+  (:import-from "XLIB" "CLOSED-DISPLAY-P")
+  (:export "SOKOBAN"))
+
+(in-package :sokoban)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defun x-host-display (&optional (disp (getenv "DISPLAY")))
+  "Parse the DISPLAY environment variable.
+Return 3 values: host, server, screen."
+  (if disp
+      (let* ((pos1 (position #\: disp))
+             (pos2 (and pos1 (position #\. disp :start pos1))))
+        (values (subseq disp 0 pos1)
+                (if pos1 (parse-integer (subseq disp (1+ pos1) pos2)) 0)
+                (if pos2 (parse-integer (subseq disp (1+ pos2))) 0)))
+      (values "" 0 0)))
+
+(defun x-open-display ()
+  "Open the appropriate X display."
+  (multiple-value-bind (host di) (x-host-display)
+    (xlib:open-display host :display di)))
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ 
+ ;;;; First a lot of global variables ...
+ (defvar *pixmaps* nil)                  ;array of pixmaps according to below indices
+@@ -228,7 +251,12 @@
+                  (nny (+ ny dy)))
+              (when (>= (field nnx nny) %floor)
+                ;;Ok its legal ...
+-               (when (and (= (field nx ny) %object)
+               ;;Allow moving through
+               (when (and (= (field nx ny)   %treasure)
+                          (= (field nnx nny) %floor))
+                 (incf *n-objects*))
+               ;;Take this point
+               (when (and (= (field nx ny)   %object)
+                           (= (field nnx nny) %goal))
+                  (decf *n-objects*))
+                (incf (field nx ny) 4)   ;remove object and add man
+@@ -475,4 +503,6 @@ If you quit sokoban using 'q' the curren
+          (setq *level* 1)
+          (init-field))) )
+ 
+(format t "~&~% Call (sokoban:sokoban)~%~%")
+
+ (provide "sokoban")
--- a/clisp-2.49-configure.dif
+++ b/clisp-2.49-configure.dif
@ -0,0 +1,129 @@
+---
+ clisp-2.49.90/configure          |    4 ++--
+ clisp-2.49.90/src/lispbibl.d     |   16 +++++++++++-----
+ clisp-2.49.90/src/makemake.in    |   17 +++++++++++++----
+ clisp-2.49.90/utils/modprep.lisp |    2 +-
+ 4 files changed, 27 insertions(+), 12 deletions(-)
+
+--- clisp-2.49.90/configure
+++ clisp-2.49.90/configure	2018-02-12 08:20:34.280915654 +0000
+@@ -429,11 +429,11 @@ do
+         passnext=makemake ;;
+ 
+       --vimdir=* | --vimdi=* | --vimd=* | --vim=* | --vi=*)
+-        subdir_configure_args="$subdir_configure_args $arg"
+#       subdir_configure_args="$subdir_configure_args $arg"
+         makemake_args="$makemake_args --vimdir="`getarg "$arg"` ;;
+ 
+       --vimdir | --vimdi | --vimd | --vim | --vi)
+-        subdir_configure_args="$subdir_configure_args $arg"
+#       subdir_configure_args="$subdir_configure_args $arg"
+         makemake_args="$makemake_args --vimdir="
+         prev=vimdir
+         passnext=both ;;
+--- clisp-2.49.90/src/lispbibl.d
+++ clisp-2.49.90/src/lispbibl.d	2018-02-12 08:20:34.284915577 +0000
+@@ -178,7 +178,7 @@
+   #define PC386 /* IBMPC-compatible with 80386/80486-processor */
+ #endif
+ #ifdef GENERIC_UNIX
+-  #if (defined(unix) && (defined(linux) || defined(__CYGWIN__) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__OpenBSD__) || defined(__DragonFly__)) && (defined(i386) || defined(__i386__) || defined(__x86_64__) || defined(__amd64__)))
+  #if (defined(unix) && ((defined(linux) || defined(__linux__)) || defined(__CYGWIN__) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__OpenBSD__) || defined(__DragonFly__)) && (defined(i386) || defined(__i386__) || defined(__x86_64__) || defined(__amd64__)))
+     #define PC386
+   #endif
+   #if (defined(sun) && defined(unix) && defined(sparc))
+@@ -270,8 +270,14 @@
+ #endif
+ #ifdef GENERIC_UNIX
+   #define UNIX
+-  #ifdef __linux__
+  #if defined(__linux__) || defined(linux)
+     #define UNIX_LINUX  /* Linux (Linus Torvalds Unix) */
+    #ifndef linux
+      #define linux
+    #endif
+    #ifndef __linux__
+      #define __linux__
+    #endif
+   #endif
+   #ifdef __GNU__
+     #define UNIX_HURD  /* the GNU system (Hurd + glibc) */
+@@ -1281,7 +1287,7 @@ typedef signed int  signean;
+  address of its component 'ident' and return it as number: */
+ #include <stddef.h>
+ #ifndef offsetof
+-  #define offsetof(type,ident)  ((ULONG)&(((type*)0)->ident))
+  #define offsetof(type,ident)  ((size_t)&(((type*)0)->ident))
+ #endif
+ /* Determine the offset of an array 'ident' in a struct of the type 'type': */
+ #if defined(__cplusplus) || defined(MICROSOFT)
+@@ -5520,9 +5526,9 @@ typedef signed_int_with_n_bits(intVsize)
+    type_data_object(type,data) */
+   #if defined(WIDE) && defined(WIDE_STRUCT)
+     #if BIG_ENDIAN_P==WIDE_ENDIANNESS
+-      #define type_data_object(type,data)  ((object){{(tint)(type),(aint)(data)}INIT_ALLOCSTAMP})
+      #define type_data_object(type,data)  (object){{(tint)(type),(aint)(data)}INIT_ALLOCSTAMP}
+     #else
+-      #define type_data_object(type,data)  ((object){{(aint)(data),(tint)(type)}INIT_ALLOCSTAMP})
+      #define type_data_object(type,data)  (object){{(aint)(data),(tint)(type)}INIT_ALLOCSTAMP}
+     #endif
+   #elif !(oint_addr_shift==0)
+     #define type_data_object(type,data)  \
+--- clisp-2.49.90/src/makemake.in
+++ clisp-2.49.90/src/makemake.in	2018-02-12 08:24:54.275897762 +0000
+@@ -250,6 +250,9 @@ verbose=${CLISP_MAKEMAKE_VERBOSE:-false}
+ # Handle --with-... arguments
+ while test -z "$endofargs"; do
+   case "$1" in
+    -ignore* | --ignore* )
+      shift
+      ;;
+     -verb* | --verb* )
+       verbose=`echol "$1"|sed 's/-*v[^=]*=*//'`
+       test -n "${verbose}" || verbose=true
+@@ -1183,11 +1186,13 @@ else
+ fi
+ 
+ # Main cpu dependencies:
+set -x
+ cpu="${host_cpu_c_abi}"
+ if test -z "$cpu"; then
+   echo "$0: WARNING: host_cpu_c_abi is void; using host_cpu=${host_cpu}" >&2
+   cpu="${host_cpu}"
+ fi
+set +x
+ 
+ test "${verbose}" = true -o "${verbose}" = yes && \
+   cat <<EOF >&2
+@@ -1384,6 +1389,9 @@ if [ $XCC_GCC = true ] ; then
+     XCFLAGS=${XCFLAGS}" -pthread"
+   fi
+ 
+  if [ -n "${MYCFLAGS}" ] ; then
+    XCFLAGS=$XCFLAGS' ${MYCFLAGS} '
+  fi
+ else
+ 
+   if [ $CROSS = false ] ; then
+@@ -4105,8 +4113,9 @@ if [ $CROSS = false ] ; then
+     echol
+     if [ "${with_dynamic_modules}" != no ]; then
+       depends="full install-modules force"
+-      line='linkkit base'
+      line='linkkit base full'
+       echol "install-modules : full force"
+      echotab "mkdir -p \$(DESTDIR)\$(lisplibdir)/full"
+       echotab "mkdir -p \$(DESTDIR)\$(lisplibdir)/dynmod"
+       echotab "DESTDIR=\`cd \"\$(DESTDIR)\$(lisplibdir)\"; pwd\` CLISP='./clisp -q -norc' ./clisp-link install \$(MODULES)"
+       echol
+--- clisp-2.49.90/utils/modprep.lisp
+++ clisp-2.49.90/utils/modprep.lisp	2018-02-12 08:20:34.288915500 +0000
+@@ -328,7 +328,7 @@ FOO(bar,baz,zot) ==> FOO; (bar baz zot);
+               ((or (char= cc #\_) (char= cc #\-)) (write-char #\_ out))
+               (t (format out "_~2,'0x" (char-code cc))))))
+ 
+-(defvar *tag-length-limit* 2000
+(defvar *tag-length-limit* 4096
+   "The approximate maximum length of a C name.
+ This works around the failure on i18n on Alpha Linux:
+ /tmp/ccYZBYCX.s: Assembler messages:
--- a/clisp-2.49-gctoken.dif
+++ b/clisp-2.49-gctoken.dif
@ -0,0 +1,13 @@
+
+
+diff --git a/utils/gctrigger.c b/utils/gctrigger.c
+--- a/utils/gctrigger.c
+++ b/utils/gctrigger.c
+@@ -601,6 +601,7 @@ static inline void VectorToken_delete (V
+ static Token nexttoken (boolean within_prep_directive)
+ {
+   Token token;
+  memset(&token, 0, sizeof(Token));
+  restart:
+   { int c = next_char();
+     switch (c) {
--- a/clisp-2.49-personality.patch
+++ b/clisp-2.49-personality.patch
@ -0,0 +1,32 @@
+---
+ src/_clisp.c |   11 +++++++++++
+ 1 file changed, 11 insertions(+)
+
+diff --git a/src/_clisp.c b/src/_clisp.c
+--- a/src/_clisp.c
+++ b/src/_clisp.c
+@@ -48,6 +48,11 @@
+ /* Declare stderr, perror(). */
+ # include <stdio.h>
+ 
+#if defined(HAS_PERSONALITY) && (HAS_PERSONALITY > 0)
+/* Declare syscall, PER_LINUX32. */
+# include <sys/personality.h>
+#endif
+
+ #if defined(WIN32_NATIVE)
+ # include <windows.h>
+ int shell_quote (char * dest, const char * source);
+@@ -435,6 +440,12 @@ int main (int argc, char* argv[])
+     }
+   #undef W32ERR
+ #else
+#if defined(HAS_PERSONALITY) && (HAS_PERSONALITY > 0)
+    if (personality(PER_LINUX32)) {
+      perror(program_name);
+      return 1;
+    }
+#endif
+     execv(executable,new_argv);
+     { /* execv() returns only if there was an error. */
+       int saved_errno = errno;
--- a/clisp-2.49-postgresql.dif
+++ b/clisp-2.49-postgresql.dif
@ -0,0 +1,9 @@
+--- a/modules/postgresql/link.sh.in
+++ b/modules/postgresql/link.sh.in
+@@ -4,5 +4,5 @@ ${MAKE-make} clisp-module \
+ NEW_MODULES='postgresql'
+ NEW_FILES=''
+ for f in ${NEW_MODULES}; do NEW_FILES=${NEW_FILES}" ${f}.o"; done
+-NEW_LIBS="${NEW_FILES} @LIBS@"
+NEW_LIBS="${NEW_FILES} @LIBS@ -lcrypt -lssl"
+ TO_LOAD='postgresql sql'
--- a/clisp-2.49-rpath.dif
+++ b/clisp-2.49-rpath.dif
@ -0,0 +1,16 @@
+---
+ src/aclocal.m4 |    2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/src/aclocal.m4 b/src/aclocal.m4
+--- a/src/aclocal.m4
+++ b/src/aclocal.m4
+@@ -7723,7 +7723,7 @@ AC_DEFUN([AC_LIB_LINKFLAGS_BODY],
+     dnl When using libtool, the option that works for both libraries and
+     dnl executables is -R. The -R options are cumulative.
+     for found_dir in $ltrpathdirs; do
+-      LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-R$found_dir"
+      LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-Wl,-rpath-link$found_dir"
+     done
+   fi
+   popdef([P_A_C_K])
--- a/clisp-2.49.92.tar.bz2
+++ b/clisp-2.49.92.tar.bz2
@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:bd443a94aa9b02da4c4abbcecfc04ffff1919c0a8b0e7e35649b86198cd6bb89
+size 8919616
--- a/clisp-db6.diff
+++ b/clisp-db6.diff
@ -0,0 +1,31 @@
+From: Jan Engelhardt <jengelh@inai.de>
+Date: 2013-06-14 13:55:00.148814697 +0200
+
+Work around compile abort with libdb-6.0
+
+BDB has removed RPC support (which was not implemented anyway;
+it [set_rpc_server] always returned EOPNOTSUPP even in libdb-4.8).
+
+---
+ clisp-536a48a9/modules/berkeley-db/bdb.c |    3 ++-
+ 1 file changed, 2 insertions(+), 1 deletion(-)
+
+--- clisp-536a48a9/modules/berkeley-db/bdb.c
+++ clisp-536a48a9/modules/berkeley-db/bdb.c	2016-11-29 11:58:23.833524665 +0000
+@@ -60,6 +60,7 @@ static void vecout (unsigned char* v, in
+    this is a macro and not a function for NO_UNICODE */
+ #define asciz_to_string0(a,e) (a ? asciz_to_string(a,e) : NIL)
+ 
+#include <errno.h>
+ #include <db.h>
+ 
+ /* http://www.oracle.com/technology/products/berkeley-db/db/update/4.4.20/if.4.4.20.html
+@@ -2216,7 +2217,7 @@ DEFUN(BDB:DB-COMPACT, db &key TRANSACTIO
+   c_data.compact_timeout = timeout;
+   c_data.compact_pages = pages;
+   SYSCALL(db->compact,(db,txn,pstart,pstop,&c_data,flags,&end));
+-  pushSTACK(uint32_to_I(c_data.compact_empty_buckets));
+/*pushSTACK(uint32_to_I(c_data.compact_empty_buckets));*/
+   pushSTACK(uint32_to_I(c_data.compact_pages_free));
+   pushSTACK(uint32_to_I(c_data.compact_pages_examine));
+   pushSTACK(uint32_to_I(c_data.compact_levels));
--- a/clisp-gcc14.patch
+++ b/clisp-gcc14.patch
@ -0,0 +1,24 @@
+---
+ modules/gdbm/gdbm.c |    4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+--- modules/gdbm/gdbm.c
+++ modules/gdbm/gdbm.c	2024-08-28 11:55:51.720519565 +0000
+@@ -66,7 +66,7 @@ DEFCHECKER(check_gdbm_errno, prefix=GDBM
+            READER-CANT-REORGANIZE UNKNOWN-UPDATE ITEM-NOT-FOUND              \
+            REORGANIZE-FAILED CANNOT-REPLACE ILLEGAL-DATA OPT-ALREADY-SET     \
+            OPT-ILLEGAL)
+-static _Noreturn void error_gdbm (char *fatal_message) {
+static _Noreturn void error_gdbm (const char *fatal_message) {
+   end_blocking_system_call(); /* in case we are called from _gdbm_fatal() */
+   pushSTACK(`GDBM::GDBM-ERROR`);
+   pushSTACK(`:MESSAGE`);
+@@ -126,7 +126,7 @@ static object open_gdbm (object path, in
+   GDBM_FILE gdbm;
+   with_string_0(path, GLO(pathname_encoding), name, {
+       SYSCALL(gdbm = gdbm_open(name, bsize, rw, mode,
+-                               (void (*)(void))error_gdbm));
+                               (void (*)(const char *))error_gdbm));
+     });
+   if (gdbm == NULL) error_gdbm(NULL);
+   return allocate_fpointer(gdbm);
--- a/clisp-link.dif
+++ b/clisp-link.dif
@ -0,0 +1,36 @@
+---
+ src/clisp-link.in |    2 +-
+ src/lispbibl.d    |    4 +++-
+ 2 files changed, 4 insertions(+), 2 deletions(-)
+
+--- src/clisp-link.in
+++ src/clisp-link.in	2018-02-19 09:30:11.548748097 +0000
+@@ -579,7 +579,7 @@ case "$1" in
+       # when running "CLISP=./clisp ./clisp-link install <modname>"
+       # in the build directory, avoid "cp: `...' and `...' are the same file"
+       if [ "${absolute_moduledir}" != "${absdestdir}/$moduledir" ]; then
+-        make clisp-module-distrib LN=${INSTALL_DATA-cp} distribdir="${absdestdir}/$moduledir"
+        make clisp-module-distrib LN="${INSTALL_DATA-cp}" distribdir="${absdestdir}/$moduledir"
+         mkdir -p ${absdestdir}/${DYNMOD};
+         for f in ${DYNDIR_FILES}; do
+           cp ${f} ${absdestdir}/${DYNMOD}/
+--- src/lispbibl.d
+++ src/lispbibl.d	2018-02-19 09:30:11.552748021 +0000
+@@ -1631,6 +1631,8 @@ typedef SLONG   sint32;  /* signed 32 bi
+   /* Emulate 64-Bit-numbers using two 32-Bit-numbers. */
+   typedef struct { sintL hi; uintL lo; } sintL2; /* signed 64 Bit integer */
+   typedef struct { uintL hi; uintL lo; } uintL2; /* unsigned 64 Bit integer */
+  #define bitQ(n)  bit(n)
+  #define bitQm(n)  bitm(n)
+ #endif
+ /* Use 'uintX' and 'sintX' for Integers with approximately given width
+  and a minumum of storage space. */
+@@ -14397,7 +14399,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)
--- a/clisp-linux.patch
+++ b/clisp-linux.patch
@ -0,0 +1,16 @@
+---
+ modules/bindings/glibc/linux.lisp |    2 ++
+ 1 file changed, 2 insertions(+)
+
+diff --git a/modules/bindings/glibc/linux.lisp b/modules/bindings/glibc/linux.lisp
+--- a/modules/bindings/glibc/linux.lisp
+++ b/modules/bindings/glibc/linux.lisp
+@@ -294,6 +294,8 @@
+ ;; for robust mutexes
+ (def-c-const EOWNERDEAD (:documentation "Owner died")) ; 130
+ (def-c-const ENOTRECOVERABLE (:documentation "State not recoverable")) ; 131
+(def-c-const ERFKILL (:documentation "Operation not possible due to RF-kill")) ; 132
+(def-c-const EHWPOISON (:documentation "Memory page has hardware error")) ; 133
+ 
+ ; -------------------------- <bits/errno.h> -----------------------------------
+ 
--- a/6
+++ b/6
@ -0,0 +1,6 @@
+addFilter(".*devel-file-in-non-devel-package.*/usr/lib.*/clisp-.*/.*")
+addFilter(".*make-check-outside-check-section.*make\ check.*")
+addFilter(".*executable-stack.*/usr/lib.*/clisp-.*")
+addFilter(".*binary-or-shlib-calls-gethostbyname.*/usr/lib.*/clisp-.*")
+addFilter(".*file-contains-date-and-time.*/usr/lib.*/clisp-.*")
+addFilter(".*position-independent-executable-suggested.*")
--- a/clisp.changes
+++ b/clisp.changes
--- a/clisp.spec
+++ b/clisp.spec
@ -0,0 +1,408 @@
+#
+# spec file for package clisp
+#
+# Copyright (c) 2024 SUSE LLC
+#
+# All modifications and additions to the file contributed by third parties
+# remain the property of their copyright owners, unless otherwise agreed
+# upon. The license for this file, and modifications and additions to the
+# file, is the same license as for the pristine package itself (unless the
+# license for the pristine package is not an Open Source License, in which
+# case the license is the MIT License). An "Open Source License" is a
+# license that conforms to the Open Source Definition (Version 1.9)
+# published by the Open Source Initiative.
+
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
+#
+
+
+Name:           clisp
+Version:        2.49.92
+Release:        0
+Summary:        A Common Lisp Interpreter
+# Included gllib is GPL-3.0-or-later
+License:        GPL-2.0-or-later AND GPL-3.0-or-later
+Group:          Development/Languages/Other
+URL:            https://gitlab.com/gnu-clisp/clisp
+Source:         %name-%version.tar.bz2
+Source3:        clisp-rpmlintrc
+Source4:        README.SUSE
+# PATCH-EXTEND-OPENSUSE Set the process execution domain
+Patch1:         clisp-2.49-personality.patch
+# PATCH-FIX-OPENSUSE Fix crash on Ia64
+Patch2:         clisp-2.39-ia64-wooh.dif
+# PATCH-EXTEND-OPENSUSE Make sure to be able to use MYCLFAGS
+Patch4:         clisp-2.49-configure.dif
+# PATCH-FIX-OPENSUSE Make sure to use initialized token on garbage collection
+Patch5:         clisp-2.49-gctoken.dif
+# PATCH-FEATURE-OPENSUSE Make CLX demos usable at runtime
+Patch6:         clisp-2.49-clx_demos.dif
+# PATCH-EXTEND-OPENSUSE Enable postgresql SSL feature
+Patch7:         clisp-2.49-postgresql.dif
+# PATCH-FIX-OPENSUSE Do not use rpath but rpath-link
+Patch8:         clisp-2.49-rpath.dif
+# PATCH-FIX-OPENSUSE Correct path for header for System V IPC system calls
+Patch12:        clisp-linux.patch
+Patch13:        clisp-gcc14.patch
+Patch14:        clisp-link.dif
+Patch16:        clisp-db6.diff
+
+BuildRoot:      %{_tmppath}/%{name}-%{version}-build
+%global vimdir  %{_datadir}/vim/site/after/syntax
+BuildRequires:  FastCGI-devel
+BuildRequires:  db-devel
+BuildRequires:  dbus-1-devel
+BuildRequires:  fdupes
+BuildRequires:  ffcall
+#%ifarch s390x
+#BuildRequires:  gcc8
+#%endif
+BuildRequires:  gdbm-devel
+BuildRequires:  glib2-devel
+BuildRequires:  gtk2-devel
+BuildRequires:  libglade2-devel
+BuildRequires:  libsigsegv-devel
+BuildRequires:  ncurses-devel
+BuildRequires:  net-tools
+BuildRequires:  openssl-devel
+BuildRequires:  pcre-devel
+BuildRequires:  pcre2-devel
+BuildRequires:  postgresql-devel
+BuildRequires:  readline-devel
+BuildRequires:  screen
+BuildRequires:  vim-data
+BuildRequires:  pkgconfig(x11)
+BuildRequires:  pkgconfig(xaw6)
+BuildRequires:  pkgconfig(xext)
+BuildRequires:  pkgconfig(xpm)
+BuildRequires:  pkgconfig(zlib)
+#
+# If set to yes do not forget to add
+#   gcc-c++
+# to BuildRequires
+#
+%define debug   no
+%define _lto_cflags %{nil}
+%global rlver   %(rpm -q --qf '%%{VERSION}' readline-devel | sed 's/\\.//g')
+%define add_optflags(a:f:t:p:w:W:d:g:O:A:C:D:E:H:i:M:n:P:U:u:l:s:X:B:I:L:b:V:m:x:c:S:E:o:v:) \
+%global optflags %{optflags} %{**}
+Requires(pre):  vim
+Requires(pre):  vim-data
+Requires:       ffcall
+# CLISP memory image data are compressed with gzip
+Requires:       /usr/bin/gzip
+Provides:       %{name}-devel
+Suggests:       %{name}-doc
+
+%description
+Common Lisp is a high-level, all-purpose programming language. CLISP is
+an implementation of Common Lisp that closely follows the book "Common
+Lisp - The Language" by Guy L. Steele Jr. This package includes an
+interactive programming environment with an interpreter, a compiler,
+and a debugger.  Start this environment with the command 'clisp'.
+
+%package doc
+Summary:        Documentation of CLisp
+Group:          Development/Languages/Other
+Requires:       %{name}
+%if 0%{?suse_version} >= 1120
+BuildArch:      noarch
+%endif
+
+%description doc
+CLISP documentation is placed in the following directories:
+
+/usr/share/doc/packages/clisp/
+
+/usr/share/doc/packages/clisp/doc/
+
+As well as the conventional CLISP, this package also includes CLX, an
+extension of CLISP for the X Window System. The X Window System must be
+installed before running the clx command. The description of this CLX
+version (new-clx) is placed in
+
+/usr/share/doc/packages/clisp/clx/
+
+with the file README. The subdirectory
+
+/usr/share/doc/packages/clisp/clx/demos/
+
+contains two nice applications.
+
+%prep
+%setup -qT -b0
+%patch -P 1  -p1 -b .sel
+%patch -P 2  -p1 -b .wooh
+%patch -P 4  -p1 -b .conf
+%patch -P 5  -p1 -b .gc
+%patch -P 6  -p1 -b .demos
+%patch -P 7  -p1 -b .psql
+%patch -P 8  -p1 -b .rpath
+%patch -P 12 -p1 -b .p12
+%patch -P 13 -p0 -b .p13
+%patch -P 14 -p0 -b .p14
+%patch -P 16 -p1 -b .p16
+
+%build
+%add_optflags -g3 -D_DEFAULT_SOURCE -D_XOPEN_SOURCE
+#
+# Overwrite stack size limit (hopefully a soft limit only)
+#
+ulimit -Ss unlimited || true
+ulimit -Hs unlimited || true
+unset LC_CTYPE
+LANG=POSIX
+LC_ALL=POSIX
+export LANG LC_ALL
+#
+# Current system
+#
+SYSTEM=${RPM_ARCH}-suse-linux
+export PATH="$PATH:."
+#
+# Set gcc command line but do not use CFLAGS
+#
+if test %debug = yes ; then
+    CC="g++"
+else
+    CC="gcc"
+fi
+%ifarch s390x
+##RPM_OPT_FLAGS="$(echo %{optflags}|sed -r 's/-fstack-protector-strong ?//g;s/-f(stack-clash-protection)/-fno-\1/') -fno-stack-limit"
+%endif
+CC="${CC} -g %{optflags} -fno-strict-aliasing -fPIC -pipe"
+case "$(uname -m)" in
+    i[0-9]86)
+	    CC="${CC} -ffloat-store"  ;;
+    arm*)   CC="${CC}"				;;
+    aarch64)CC="${CC}"				;;
+    ppc)    CC="${CC}"				;;
+    s390)   CC="${CC}"				;;
+    x86_64) CC="${CC} -fno-gcse"		;;
+    sparc*) CC="${CC} -mcpu=v9 -fno-gcse"	;;
+    ppc64)  CC="${CC} -fno-gcse -mpowerpc64"	;;
+    ppc64le)CC="${CC} -fno-gcse"		;;
+    s390x)  CC="${CC} -fno-gcse -fno-schedule-insns";;
+    ia64)   CC="${CC} -fno-gcse"		;;
+    axp|alpha)
+	    CC="${CC}"				;;
+esac
+#
+# FastCGI-devel seems a bit broken
+#
+CC="${CC} -I%{_includedir}/fastcgi"
+
+safety='-O'
+MYCFLAGS="$(getconf LFS_CFLAGS)"
+if grep -q _DEFAULT_SOURCE /usr/include/features.h
+then
+    MYCFLAGS="${MYCFLAGS} -D_GNU_SOURCE -D_DEFAULT_SOURCE"
+else
+    MYCFLAGS="${MYCFLAGS} -D_GNU_SOURCE"
+fi
+MYCFLAGS="${MYCFLAGS} -Wno-unused -Wno-uninitialized -Wno-implicit-fallthrough -Wno-volatile-register-var"
+# From src/makemake.in
+# <cite>
+# Do NOT enable -DSAFETY=3 here, because -DSAFETY=3 not only disables some
+# optimizations but also enables some debugging features (STACKCHECKs), which
+# is not in the scope of --enable-portability.
+# </cite>
+port=''
+%ifarch s390x
+##port='--enable-portability'
+%endif
+case "$(uname -m)" in
+    i[0-9]86)
+            MYCFLAGS="${MYCFLAGS}"				;;
+    arm*)   MYCFLAGS="${MYCFLAGS} ${safety}"			;;
+    aarch64)MYCFLAGS="${MYCFLAGS}"				;;
+    ppc)    MYCFLAGS="${MYCFLAGS}"				;;
+    s390)   MYCFLAGS="${MYCFLAGS}"				;;
+    x86_64) MYCFLAGS="${MYCFLAGS}"				;;
+    sparc*) MYCFLAGS="${MYCFLAGS} ${safety}"			;;
+    ppc64)  MYCFLAGS="${MYCFLAGS} ${safety}"			;;
+    ppc64le)MYCFLAGS="${MYCFLAGS} ${safety}"			;;
+    s390x)  MYCFLAGS="${MYCFLAGS} ${safety}"			;;
+    ia64)   MYCFLAGS="${MYCFLAGS} ${safety}"			;;
+    axp|alpha)
+	    MYCFLAGS="${MYCFLAGS}"				;;
+esac
+export CC
+export MYCFLAGS
+unset noexec nommap safety
+
+#
+# Report final architectures
+#
+echo $(uname -i -m -p) %_build_arch %_arch
+echo | $CC $MYCFLAGS -v -E - 2>&1 | grep /cc1
+#
+# Environment for the case of missing terminal
+#
+%global _configure	screen -D -m setarch $(uname -m) -R ./configure
+%global _make		screen -D -m setarch $(uname -m) -R make
+SCREENDIR=$(mktemp -d ${PWD}/screen.XXXXXX) || exit 1
+SCREENRC=${SCREENDIR}/clisp
+export SCREENRC SCREENDIR
+exec 0< /dev/null
+SCREENLOG=${SCREENDIR}/log
+cat > $SCREENRC<<-EOF
+	deflogin off
+	deflog on
+	logfile $SCREENLOG
+	logfile flush 1
+	logtstamp off
+	log on
+	setsid on
+	scrollback 0
+	silence on
+	utf8 on
+	EOF
+#
+# Build the current system
+#
+if test %debug = yes ; then
+    DEBUG=--with-debug
+    MYCFLAGS="${MYCFLAGS} -g3 -DDEBUG_GCSAFETY"
+else
+    DEBUG=""
+    MYCFLAGS="${MYCFLAGS}"
+fi
+
+find -name configure | xargs -r \
+    sed -ri "/ac_precious_vars='build_alias\$/ {N; s/build_alias\\n//; }"
+#
+# The modules i18n, syscalls, regexp
+# are part of the base clisp system.
+#
+> $SCREENLOG
+tail -q -s 0.5 -f $SCREENLOG & pid=$!
+%_configure build ${DEBUG}	\
+    ${port+"$port"}		\
+    --prefix=%{_prefix}		\
+    --exec-prefix=%{_prefix}	\
+    --libdir=%{_libdir}		\
+    --vimdir=%{vimdir}		\
+    --fsstnd=suse		\
+    --with-readline		\
+    --with-dynamic-modules      \
+    --with-gettext		\
+    --with-module=asdf		\
+    --with-module=dbus		\
+    --with-module=editor	\
+    --with-module=fastcgi	\
+    --with-module=queens	\
+    --with-module=gdbm		\
+    --with-module=gtk2		\
+    --with-module=pcre		\
+    --with-module=rawsock	\
+    --with-module=zlib		\
+    --with-module=bindings/glibc\
+    --with-module=clx/new-clx	\
+    --with-module=berkeley-db	\
+    --with-module=postgresql
+
+%_make -C build lispbibl.h
+grep TYPECODES build/lispbibl.h || :
+%_make -C build
+%_make -C build check
+
+#
+# Stop tail
+#
+sleep 1
+kill $pid
+
+#
+# Check for errors
+#
+
+check=no
+for err in build/tests/*.erg
+do
+    test -e "$err" || break
+    check=yes
+    cat $err
+done
+if test $check != no
+then
+    type -p uname   > /dev/null 2>&1 && uname -a || :
+    type -p netstat > /dev/null 2>&1 && netstat -i || :
+    type -p netstat > /dev/null 2>&1 && netstat -x || :
+    type -p ip > /dev/null 2>&1 && ip link || :
+    type -p ss > /dev/null 2>&1 && ss -x   || :
+fi
+
+#
+%install
+#
+# Clean
+#
+find modules/clx/ -name '*.demos' | xargs --no-run-if-empty rm -vf
+#
+# Current system
+#
+SYSTEM=${RPM_ARCH}-suse-linux
+LSPDOC=%{_docdir}/clisp
+DOCDOC=${LSPDOC}/doc
+CLXDOC=${LSPDOC}/clx
+LSPLIB=%{_libdir}/clisp-%{version}
+CLXLIB=${LSPLIB}/full
+#
+# Install the current system
+#
+setarch $(uname -m) -R make -C build install prefix=%{_prefix}   \
+        exec_prefix=%{_prefix}      \
+        mandir=%{_mandir}       \
+        libdir=%{_libdir}       \
+    DESTDIR=%{buildroot}        \
+    INSTALL_DATA="install -cm 0444"
+
+#
+# The CLX interface
+#
+install -d %{buildroot}${CLXDOC}
+install -d %{buildroot}${CLXLIB}
+pushd modules/clx/new-clx/
+  install -c -m 0444 README %{buildroot}${CLXDOC}/
+  install -c -m 0444 %{S:4} %{buildroot}${CLXDOC}/
+  tar cf - demos/ | (cd %{buildroot}${CLXDOC}/ ; tar xf - )
+popd
+pushd modules/clx/
+  tar xfz clx-manual.tar.gz -C %{buildroot}${CLXDOC}
+popd
+find %{buildroot} -name "*.a" | xargs chmod u+w
+chmod    u+xrw,a+rx %{buildroot}%{_bindir}/clisp
+chmod    u+xrw,a+rx %{buildroot}%{_bindir}/clisp-link
+chmod -R g+r,o+r    %{buildroot}${LSPDOC}/
+chmod    a-x        %{buildroot}${CLXDOC}/clx-manual/html/doc-index.cgi
+find   %{buildroot}${LSPDOC} -type d | xargs chmod 755
+rm -f  %{buildroot}${CLXDOC}/*,v
+rm -f  %{buildroot}${CLXDOC}/.\#*
+rm -f  %{buildroot}${CLXDOC}/demos/*,v
+rm -f  %{buildroot}${CLXDOC}/demos/.\#*
+rm -f  %{buildroot}${CLXDOC}/demos/*.orig
+find   %{buildroot}${LSPLIB}/ -name '*.dvi' | xargs -r rm -f
+find   %{buildroot}${LSPLIB}/ -name '*.run' | xargs -r chmod 0755
+rm -rf %{buildroot}${LSPLIB}/new-clx/demos/
+find   %{buildroot} -type f | xargs -r chmod u+w
+chmod a+x %{buildroot}${LSPLIB}/build-aux/{config,depcomp}*
+%fdupes %{buildroot}${LSPLIB}/
+%find_lang clisp
+%find_lang clisplow clisp.lang
+
+%files -f clisp.lang
+%defattr(-,root,root,755)
+%{_bindir}/clisp
+%{_bindir}/clisp-link
+%{_libdir}/clisp-%{version}/
+%{_datadir}/aclocal/clisp.m4
+%{_datadir}/emacs/site-lisp/
+%doc %{_datadir}/man/man1/clisp*.1.gz
+%{vimdir}/lisp.vim
+
+%files doc
+%defattr(-,root,root,755)
+%{_docdir}/clisp/
+
+%changelog