rpms/clisp
3
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

new release 2.43

Browse source
This commit is contained in:
Gérard Milmeister 2007-11-24 14:31:16 +00:00
commit 1da88cabb5
5 changed files with 60 additions and 138 deletions
Download patch file Download diff file Expand all files Collapse all files

2
.cvsignore
View file

@ -1 +1 @@
clisp-2.41.tar.bz2
clisp-2.43.tar.bz2

41
clisp-2.40-doc.patch
View file

@ -1,41 +0,0 @@
--- documentation.lisp 02 Oct 2006 06:01:24 -0400 1.26
+++ documentation.lisp 03 Oct 2006 10:47:23 -0400
@@ -4,7 +4,7 @@
(in-package "CLOS")
-(defun function-documentation (x)
+(defun function-documentation (x &aux name)
(cond ((typep-class x <standard-generic-function>)
(std-gf-documentation x))
((eq (type-of x) 'FUNCTION) ; interpreted function?
@@ -12,8 +12,7 @@
#+FFI ((eq (type-of x) 'ffi::foreign-function)
(getf (sys::%record-ref x 5) :documentation))
((sys::closurep x) (sys::closure-documentation x))
- ((let ((name (sys::subr-info x))) ; subr
- (and name (get :documentation name))))
+ ((setq name (sys::subr-info x)) (get :documentation name)) ; subr
(t (get :documentation (sys::%record-ref x 0)))))
;;; documentation
@@ -81,7 +80,7 @@
(:method ((x slot-definition) (doc-type (eql 't)))
(slot-definition-documentation x)))
-(defun set-function-documentation (x new-value)
+(defun set-function-documentation (x new-value &aux name)
(cond ((typep-class x <standard-generic-function>)
(setf (std-gf-documentation x) new-value))
((eq (type-of x) 'FUNCTION) ; interpreted function?
@@ -89,8 +88,8 @@
#+FFI ((eq (type-of x) 'ffi::foreign-function)
(setf (getf (sys::%record-ref x 5) :documentation) new-value))
((sys::closurep x) (sys::closure-set-documentation x new-value))
- ((let ((name (sys::subr-info x))) ; subr
- (and name (setf (get :documentation name) new-value))))
+ ((setq name (sys::subr-info x)) ; subr
+ (setf (get :documentation name) new-value))
(t ; fsubr
(setf (get :documentation (sys::%record-ref x 0)) new-value))))

51
clisp-config-stacksize.patch
View file

@ -1,51 +0,0 @@
--- configure 2006/10/18 01:36:48 1.104
+++ configure 2007/01/02 21:51:40 1.105
@@ -718,6 +718,17 @@
fi
fi
+# CLISP needs a lot of stack space for bootstrapping,
+# and insufficient stack space manifests itself via arbitrary GC errors.
+# it was believed that 8192 is enough until power5 came along:
+# https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=166347
+STACK_LIMIT=16384
+stacksizelimit=`ulimit -s 2>/dev/null || :` # cygwin /bin/sh ulimit is broken
+# need 3 separate test calls because of "integer expression expected" errors
+# when $stacksizelimit is "" or "unlimited" (no short-circuiting!)
+test -z "$stacksizelimit" || { test "$stacksizelimit" != unlimited && test "$stacksizelimit" -lt ${STACK_LIMIT}; }
+STACK_TOO_SMALL=$? # 0=true => need to reset; 1=false => big enough
+
if test -z "$do_build"; then
echo
@@ -729,13 +740,12 @@
echo " ./makemake $makemake_args > Makefile"
echo " make config.lisp"
echo " ${EDITOR:-vi} config.lisp"
- stacksizelimit=`ulimit -s 2>/dev/null || :` # cygwin /bin/sh ulimit is broken
- if test -z "$stacksizelimit" || { test "$stacksizelimit" != unlimited && test "$stacksizelimit" -lt 8192; }; then
+ if [ "${STACK_TOO_SMALL}" = 0 ]; then
cat <<EOF
# The default stack size on your platform is insufficient
-# and must be increased to at least 8192. You must do either
-# 'ulimit -s 8192' (for Bourne shell derivatives, e.g., bash and zsh) or
-# 'limit stacksize 8192' (for C shell derivarives, e.g., tcsh)
+# and must be increased to at least ${STACK_LIMIT}. You must do either
+# 'ulimit -s ${STACK_LIMIT}' (for Bourne shell derivatives, e.g., bash and zsh)
+# or 'limit stacksize ${STACK_LIMIT}' (for C shell derivarives, e.g., tcsh)
EOF
fi
echo " make"
@@ -750,9 +760,9 @@
make config.lisp;
${EDITOR:-vi} config.lisp;
fi
- # ulimit: just to make sure, should not hurt
- # cygwin /bin/sh ulimit is broken
- set +e; ulimit -s 8192 2>/dev/null; set -e;
+ if [ "${STACK_TOO_SMALL}" = 0 ]; then
+ set +e; ulimit -s ${STACK_LIMIT} 2>/dev/null; set -e;
+ fi
make
make check
cd ..

102
clisp.spec
View file

@ -1,21 +1,21 @@
Name: clisp
Summary: Common Lisp (ANSI CL) implementation
Version: 2.41
Release: 6%{?dist}
Version: 2.43
Release: 1%{?dist}
Group: Development/Languages
License: GPL
License: GPLv2
URL: http://clisp.cons.org
Source: http://download.sourceforge.net/clisp/clisp-2.41.tar.bz2
Source: http://download.sourceforge.net/clisp/clisp-2.43.tar.bz2
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildRequires: readline-devel
BuildRequires: gettext
BuildRequires: pcre-devel
BuildRequires: postgresql-devel
BuildRequires: diffutils
BuildRequires: imake
BuildRequires: libsigsegv-devel
# no berkeley db until fixed for new version
#BuildRequires: db4-devel
BuildRequires: zlib-devel
BuildRequires: readline-devel
BuildRequires: gdbm-devel
BuildRequires: gettext
BuildRequires: gtk2-devel
BuildRequires: libglade2-devel
BuildRequires: libICE-devel
BuildRequires: libSM-devel
BuildRequires: libX11-devel
@ -25,7 +25,11 @@ BuildRequires: libXft-devel
BuildRequires: libXmu-devel
BuildRequires: libXrender-devel
BuildRequires: libXt-devel
BuildRequires: imake
BuildRequires: pcre-devel
BuildRequires: postgresql-devel
BuildRequires: zlib-devel
# no berkeley db until fixed for new version
#BuildRequires: db4-devel
ExcludeArch: ppc64
@ -69,19 +73,22 @@ sed -i "s|ulimit -s 8192|ulimit -s unlimited|" configure
%build
# no berkeley db until fixed for new version
# --with-module=berkeley-db
CFLAGS="" ./configure --prefix=%{_prefix} \
--libdir=%{_libdir} \
--fsstnd=redhat \
--with-dynamic-ffi \
--with-module=clx/new-clx \
--with-module=pcre \
--with-module=postgresql \
--with-module=rawsock \
--with-module=wildcard \
--with-module=zlib \
--with-module=bindings/glibc \
./configure --prefix=%{_prefix} \
--libdir=%{_libdir} \
--fsstnd=redhat \
--with-dynamic-ffi \
--with-module=bindings/glibc \
--with-module=clx/new-clx \
--with-module=gdbm \
--with-module=gtk2 \
--with-module=pcre \
--with-module=postgresql \
--with-module=rawsock \
--with-module=wildcard \
--with-module=zlib \
--with-readline \
--build build
--build build \
CFLAGS="$RPM_OPT_FLAGS"
%install
@ -106,31 +113,32 @@ cat %{name}low.lang >> %{name}.lang
%{_bindir}/clisp
%{_mandir}/man1/*
%{_docdir}/clisp-%{version}
%dir %{_libdir}/clisp/base
%dir %{_libdir}/clisp/full
%dir %{_libdir}/clisp
%{_libdir}/clisp/base/lispinit.mem
%{_libdir}/clisp/base/lisp.run
%{_libdir}/clisp/full/lispinit.mem
%{_libdir}/clisp/full/lisp.run
%{_libdir}/clisp/data
%dir %{_libdir}/clisp-*/base
%dir %{_libdir}/clisp-*/full
%dir %{_libdir}/clisp-*
%{_libdir}/clisp-*/base/lispinit.mem
%{_libdir}/clisp-*/base/lisp.run
%{_libdir}/clisp-*/full/lispinit.mem
%{_libdir}/clisp-*/full/lisp.run
%{_libdir}/clisp-*/data
%{_datadir}/emacs/site-lisp/*
%{_datadir}/vim/vimfiles/after/syntax/*
%files devel
%defattr(-,root,root,-)
%attr(0755,root,root) %{_libdir}/clisp/clisp-link
%{_libdir}/clisp/base/*.a
%{_libdir}/clisp/base/*.o
%{_libdir}/clisp/base/*.h
%{_libdir}/clisp/base/*.dvi
%{_libdir}/clisp/base/makevars
%{_libdir}/clisp/full/*.a
%{_libdir}/clisp/full/*.o
%{_libdir}/clisp/full/*.h
%{_libdir}/clisp/full/*.dvi
%{_libdir}/clisp/full/makevars
%{_libdir}/clisp/linkkit
%attr(0755,root,root) %{_libdir}/clisp-*/clisp-link
%{_libdir}/clisp-*/base/*.a
%{_libdir}/clisp-*/base/*.o
%{_libdir}/clisp-*/base/*.h
%{_libdir}/clisp-*/base/*.dvi
%{_libdir}/clisp-*/base/makevars
%{_libdir}/clisp-*/full/*.a
%{_libdir}/clisp-*/full/*.o
%{_libdir}/clisp-*/full/*.h
%{_libdir}/clisp-*/full/*.dvi
%{_libdir}/clisp-*/full/makevars
%{_libdir}/clisp-*/linkkit
%clean
@ -138,6 +146,12 @@ rm -fr $RPM_BUILD_ROOT
%changelog
* Sat Nov 24 2007 Gerard Milmeister <gemi@bluewin.ch> - 2.43-1
- new release 2.43
* Tue Oct 16 2007 Gerard Milmeister <gemi@bluewin.ch> - 2.42-1
- new release 2.42
* Fri May 4 2007 David Woodhouse <dwmw2@infradead.org> - 2.41-6
- Revert to overriding stack limit in specfile

2
sources
View file

@ -1 +1 @@
3a7a00e82ebeeb72a75a032f84c36c6c clisp-2.41.tar.bz2
45cf7ab628cab83e99ceaa75aa880b63 clisp-2.43.tar.bz2