12 files changed, 226 insertions, 167 deletions
diff --git a/dev-lisp/clisp/ChangeLog b/dev-lisp/clisp/ChangeLog
index 5c7042a04dff..2d22d6d76ceb 100644
--- a/dev-lisp/clisp/ChangeLog
+++ b/dev-lisp/clisp/ChangeLog
@@ -1,6 +1,17 @@
 # ChangeLog for dev-lisp/clisp
 # Copyright 2002-2005 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-lisp/clisp/ChangeLog,v 1.36 2005/06/21 20:32:50 blubb Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-lisp/clisp/ChangeLog,v 1.37 2005/07/22 19:25:22 mkennedy Exp $
+
+*clisp-2.34 (22 Jul 2005)
+
+  22 Jul 2005; Matthew Kennedy <mkennedy@gentoo.org>
+  -files/clisp-2.30-gentoo.patch, +files/2.34/README.Gentoo,
+  +files/2.34/clisp.sh, -files/clisp-2.30-linux.lisp-upstream.patch,
+  +files/2.34/fastcgi-Makefile.in-gentoo.patch,
+  +files/2.34/glibc-linux.lisp-sigpause-gentoo.patch,
+  +files/2.34/install-clc.lisp, -files/clisp.sh, clisp-2.33.2-r2.ebuild,
+  +clisp-2.34.ebuild:
+  New upstream version.
 
   21 Jun 2005; Simon Stelling <blubb@gentoo.org>
   +files/2.33.2/compilefix.patch, clisp-2.33.2-r2.ebuild:
diff --git a/dev-lisp/clisp/Manifest b/dev-lisp/clisp/Manifest
index 56a7d44965df..068fbe2547be 100644
--- a/dev-lisp/clisp/Manifest
+++ b/dev-lisp/clisp/Manifest
@@ -1,13 +1,17 @@
-MD5 1c56ed49365c1d56ff494a6b96dee90f ChangeLog 8330
-MD5 50f24d5cb5a2a02cb3a552416e113304 clisp-2.33.2-r2.ebuild 4132
+MD5 0115a6f7bb05727cabaf70fc89292c38 ChangeLog 8762
+MD5 872f6573efcd30a53b015be4239ca6dd clisp-2.33.2-r2.ebuild 4235
 MD5 485cde76397408cf913fc6d4c7a45a67 metadata.xml 882
-MD5 c112ebf612bf8e262c4285fd4c7e9553 files/clisp-2.30-gentoo.patch 1301
-MD5 ec015c64b7aca6f6721123c27d7d921c files/clisp-2.30-linux.lisp-upstream.patch 4712
-MD5 7a720fb7b329a505c3cdb556b166aba7 files/clisp.sh 2810
+MD5 2252c6e583771452b0af400083a573a0 clisp-2.34.ebuild 4237
 MD5 9a2df7725b74af8b8b9f3db39b350e79 files/digest-clisp-2.33.2-r2 66
-MD5 8d8449ba456d4f8b789d4349496845b6 files/2.33.2/compilefix.patch 1174
+MD5 d8868b134ba5463d87df11818719fcec files/digest-clisp-2.34 64
+MD5 66e5b3968b3a6ad0301ca028447b26b3 files/2.34/README.Gentoo 334
+MD5 fe93240f140623bf55d2e503f6d8e01e files/2.34/clisp.sh 2792
+MD5 a68a303f8d8e4eec8542f36167df1377 files/2.34/fastcgi-Makefile.in-gentoo.patch 662
+MD5 e415e209cc23163e624face90f97e024 files/2.34/glibc-linux.lisp-sigpause-gentoo.patch 614
+MD5 2f431f5c714c00d04b55e02a9d54f452 files/2.34/install-clc.lisp 501
 MD5 66e5b3968b3a6ad0301ca028447b26b3 files/2.33.2/README.Gentoo 334
 MD5 fe93240f140623bf55d2e503f6d8e01e files/2.33.2/clisp.sh 2792
+MD5 8d8449ba456d4f8b789d4349496845b6 files/2.33.2/compilefix.patch 1174
 MD5 a9325cfeff703a21e63dbd2b3aad34c1 files/2.33.2/fastcgi-Makefile.in-gentoo.patch 670
 MD5 3eb393d2fbfe2e395744f45ce0d3e4f0 files/2.33.2/glibc-linux.lisp-sigpause-gentoo.patch 622
 MD5 2f431f5c714c00d04b55e02a9d54f452 files/2.33.2/install-clc.lisp 501
diff --git a/dev-lisp/clisp/clisp-2.33.2-r2.ebuild b/dev-lisp/clisp/clisp-2.33.2-r2.ebuild
index 34db0763737e..6fa50ddd9f04 100644
--- a/dev-lisp/clisp/clisp-2.33.2-r2.ebuild
+++ b/dev-lisp/clisp/clisp-2.33.2-r2.ebuild
@@ -1,10 +1,8 @@
 # Copyright 1999-2005 Gentoo Foundation
 # Distributed under the terms of the GNU General Public License v2
-# $Header: /var/cvsroot/gentoo-x86/dev-lisp/clisp/clisp-2.33.2-r2.ebuild,v 1.6 2005/06/21 20:32:50 blubb Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-lisp/clisp/clisp-2.33.2-r2.ebuild,v 1.7 2005/07/22 19:25:22 mkennedy Exp $
 
-inherit flag-o-matic common-lisp-common-2 eutils
-
-DEB_PV=7
+inherit flag-o-matic common-lisp-common-2 eutils toolchain-funcs
 
 DESCRIPTION="A portable, bytecode-compiled implementation of Common Lisp"
 HOMEPAGE="http://clisp.sourceforge.net/"
@@ -65,6 +63,8 @@ src_compile() {
 #	einfo "Using CFLAGS: ${CFLAGS}"
 #	export CC="$(gcc-getCC) ${CFLAGS}"
 
+	CC="$(tc-getCC)"			# used further down
+
 	# Let CLISP use its own set of optimizations
 	unset CFLAGS CXXFLAGS
 	local myconf="--with-dynamic-ffi
@@ -75,7 +75,8 @@ src_compile() {
 	use ppc-macos || myconf="${myconf} --with-module=bindings/glibc"
 	use readline || myconf="${myconf} --with-noreadline"
 	use nls || myconf="${myconf} --with-nogettext"
-	use X && myconf="${myconf} --with-module=clx/new-clx"
+#	use X && myconf="${myconf} --with-module=clx/new-clx"
+	use X && myconf="${myconf} --with-module=clx/mit-clx"
 	if use postgres; then
 		myconf="${myconf} --with-module=postgresql"
 		CC="${CC} -I $(pg_config --includedir)"
diff --git a/dev-lisp/clisp/clisp-2.34.ebuild b/dev-lisp/clisp/clisp-2.34.ebuild
new file mode 100644
index 000000000000..820d3ff9ee69
--- /dev/null
+++ b/dev-lisp/clisp/clisp-2.34.ebuild
@@ -0,0 +1,138 @@
+# Copyright 1999-2005 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-lisp/clisp/clisp-2.34.ebuild,v 1.1 2005/07/22 19:25:22 mkennedy Exp $
+
+inherit flag-o-matic common-lisp-common-2 eutils toolchain-funcs
+
+DESCRIPTION="A portable, bytecode-compiled implementation of Common Lisp"
+HOMEPAGE="http://clisp.sourceforge.net/"
+SRC_URI="mirror://sourceforge/clisp/${P}.tar.bz2"
+
+LICENSE="GPL-2"
+SLOT="2"
+KEYWORDS="~x86 ~ppc ~ppc-macos ~amd64 ~sparc"
+IUSE="X fastcgi nls pcre postgres readline unicode zlib"
+
+DEPEND="dev-libs/libsigsegv
+	dev-lisp/common-lisp-controller
+	fastcgi? ( dev-libs/fcgi )
+	postgres? ( dev-db/postgresql )
+	X? ( virtual/x11 )
+	readline? ( sys-libs/readline )
+	nls? ( sys-devel/gettext )
+	pcre? ( dev-libs/libpcre )
+	zlib? ( sys-libs/zlib )"
+
+PROVIDE="virtual/commonlisp"
+
+src_unpack() {
+	unpack ${A}
+	epatch ${FILESDIR}/${PV}/fastcgi-Makefile.in-gentoo.patch || die
+	epatch ${FILESDIR}/${PV}/glibc-linux.lisp-sigpause-gentoo.patch || die
+}
+
+src_compile() {
+	# Handle the case where the user has some other -falign-functions
+	# option set.  Bug 34630.
+	if ! is-flag '-falign-functions=4' \
+		&& expr "$CFLAGS" : '.*\(-falign-functions=[[:digit:]]\+\)' >/dev/null; then
+		CFLAGS=${CFLAGS/\
+		$(expr "$CFLAGS" : '.*\(-falign-functions=[[:digit:]]\+\)')/\
+		-falign-functions=4}
+	fi
+
+	# Fails to compile without -falign-functions=4 when -march=pentium4
+	# (or -march=pentium3, sometimes??) is defined.	 Bugs 33425 and 34630.
+	if (is-flag '-march=pentium4' || is-flag '-march=pentium3') \
+		&& ! is-flag '-falign-functions=4'; then
+		append-flags '-falign-functions=4'
+	fi
+
+	# Athlon XP users report problems with -O3 optimization.  In this
+	# block, we remove any optimization flag.  Depending on bug 34497. we
+	# may be able to reduce optimization to -O2.
+	if is-flag '-march=athlon-xp'; then
+		filter-flags '-O*'
+	fi
+
+	# The previous stanza might not be necessary.  Bug 39830.
+	if is-flag '-march=athlon-xp'; then
+		replace-flags '-march=athlon-xp' '-mcpu=athlon-xp'
+	fi
+
+#	einfo "Using CFLAGS: ${CFLAGS}"
+#	export CC="$(gcc-getCC) ${CFLAGS}"
+
+	CC="$(tc-getCC)"			# used further down
+
+	# Let CLISP use its own set of optimizations
+	unset CFLAGS CXXFLAGS
+	local myconf="--with-dynamic-ffi
+		--with-module=wildcard
+		--with-module=rawsock
+		$(use_with unicode)"
+	use ppc-macos || myconf="${myconf} --with-module=bindings/glibc"
+	use readline || myconf="${myconf} --with-noreadline"
+	use nls || myconf="${myconf} --with-nogettext"
+	use X && myconf="${myconf} --with-module=clx/new-clx"
+	if use postgres; then
+		myconf="${myconf} --with-module=postgresql"
+		CC="${CC} -I $(pg_config --includedir)"
+	fi
+	use fastcgi && myconf="${myconf} --with-module=fastcgi"
+	use pcre && myconf="${myconf} --with-module=pcre"
+	use zlib && myconf="${myconf} --with-module=zlib"
+	einfo "Configuring with ${myconf}"
+	./configure --prefix=/usr ${myconf} build || die "./configure failed"
+	cd build
+	./makemake ${myconf} >Makefile
+	emake -j1 config.lisp
+	sed -i 's,"vi","nano",g' config.lisp
+	sed -i 's,http://www.lisp.org/HyperSpec/,http://www.lispworks.com/reference/HyperSpec/,g' config.lisp
+	emake -j1 || die
+}
+
+src_install() {
+	pushd build
+	make DESTDIR=${D} prefix=/usr install-bin || die
+	doman clisp.1
+	dodoc SUMMARY README* NEWS MAGIC.add GNU-GPL COPYRIGHT \
+		ANNOUNCE clisp.dvi clisp.html
+
+	rm -f ${D}/usr/lib/clisp/base/*
+	(cd ${D}/usr/lib/clisp/base && ln -s ../full/* .)
+	chmod a+x ${D}/usr/lib/clisp/clisp-link
+	popd
+
+	# install common-lisp-controller profile
+	exeinto /usr/lib/common-lisp/bin
+	doexe ${FILESDIR}/${PV}/clisp.sh
+	insinto /usr/lib/clisp
+	doins ${FILESDIR}/${PV}/install-clc.lisp
+	dodoc ${FILESDIR}/${PV}/README.Gentoo
+
+	keepdir /usr/lib/common-lisp/clisp
+}
+
+pkg_preinst() {
+	local clisp_dir=/usr/lib/clisp
+	local old_mem=$clisp_dir/full/lispinit.mem
+	local new_mem=$clisp_dir/full/lispinit-new.mem
+	local clean_mem=$clisp_dir/full/lispinit-clean.mem
+	local lisp_run=$clisp_dir/full/lisp.run
+	rm -f $old_mem $new_mem $clean_mem $lisp_run
+}
+
+pkg_postinst() {
+	standard-impl-postinst clisp
+}
+
+pkg_postrm() {
+	standard-impl-postrm clisp /usr/bin/clisp
+}
+
+pkg_postrm() {
+	if [ ! -x /usr/bin/clisp ]; then
+		rm -rf /usr/lib/clisp/ || die
+	fi
+}
diff --git a/dev-lisp/clisp/files/2.34/README.Gentoo b/dev-lisp/clisp/files/2.34/README.Gentoo
new file mode 100644
index 000000000000..6bec925fb0d3
--- /dev/null
+++ b/dev-lisp/clisp/files/2.34/README.Gentoo
@@ -0,0 +1,11 @@
+                                                            -*-outline-*-
+
+* Gentoo Specific Notes
+
+The CLISP port for Gentoo uses Common Lisp Controller related code
+(install-clc.lisp and clisp.sh) from Debian.  This code contains the following
+copyright:
+
+    ;;;; Copyright (c) 2004 Kevin M. Rosenberg
+    ;;;; GNU GPL v2 license
+
diff --git a/dev-lisp/clisp/files/clisp.sh b/dev-lisp/clisp/files/2.34/clisp.sh
index 286dbb6a81fb..f5ed6a1d8fce 100644
--- a/dev-lisp/clisp/files/clisp.sh
+++ b/dev-lisp/clisp/files/2.34/clisp.sh
@@ -35,7 +35,7 @@ case $1 in
 	shift
 	while [ -x $builder ] && [ ! -z "$1" ] ; do
 	    echo ...rebuilding $1
-	    $builder -norc -q -Efile ISO-8859-1 -M $old_mem -x "
+	    $builder -norc -q -M $old_mem -x "
 (let ((*compile-print* nil)
       (*compile-progress* nil)
       (*compile-verbose*  nil)
diff --git a/dev-lisp/clisp/files/2.34/fastcgi-Makefile.in-gentoo.patch b/dev-lisp/clisp/files/2.34/fastcgi-Makefile.in-gentoo.patch
new file mode 100644
index 000000000000..902e1ac267c7
--- /dev/null
+++ b/dev-lisp/clisp/files/2.34/fastcgi-Makefile.in-gentoo.patch
@@ -0,0 +1,17 @@
+diff -ur clisp-2.34.original/modules/fastcgi/Makefile.in clisp-2.34/modules/fastcgi/Makefile.in
+--- clisp-2.34.original/modules/fastcgi/Makefile.in	2004-03-03 08:41:54.000000000 -0600
++++ clisp-2.34/modules/fastcgi/Makefile.in	2004-03-20 00:02:37.235191912 -0600
+@@ -22,10 +22,10 @@
+ 	$(CLISP) -c fastcgi.lisp
+ 
+ fastcgi.o:       fastcgi.c
+-	$(CC) $(CPPFLAGS) $(CFLAGS) $(INCLUDES) -I.. -c fastcgi.c
++	$(CC) $(CPPFLAGS) $(CFLAGS) -I.. -c fastcgi.c
+ 
+ fastcgi_wrappers.o:       fastcgi_wrappers.c
+-	$(CC) $(CPPFLAGS) $(CFLAGS) $(INCLUDES) -I.. -c fastcgi_wrappers.c
++	$(CC) $(CPPFLAGS) $(CFLAGS) -I.. -c fastcgi_wrappers.c
+ 
+ # Make a module
+ clisp-module : all
+
diff --git a/dev-lisp/clisp/files/2.34/glibc-linux.lisp-sigpause-gentoo.patch b/dev-lisp/clisp/files/2.34/glibc-linux.lisp-sigpause-gentoo.patch
new file mode 100644
index 000000000000..e7f6dd69a786
--- /dev/null
+++ b/dev-lisp/clisp/files/2.34/glibc-linux.lisp-sigpause-gentoo.patch
@@ -0,0 +1,15 @@
+diff -U4 --recursive clisp-2.34-orig/modules/bindings/glibc/linux.lisp clisp-2.34/modules/bindings/glibc/linux.lisp
+--- clisp-2.34-orig/modules/bindings/glibc/linux.lisp	2004-07-27 11:51:00.403973848 -0400
++++ clisp-2.34/modules/bindings/glibc/linux.lisp	2004-07-27 11:51:39.937963768 -0400
+@@ -34,8 +34,11 @@
+ (def-c-type ulonglong uint64)
+ (define-modify-macro orf () logior)
+ (define-modify-macro andf () logand)
+ 
++; Needed to choose sigpause version
++(c-lines "#define __FAVOR_BSD~%~%")
++
+ ; ============================= <stddef.h> ====================================
+ 
+ (c-lines "#include <stddef.h>~%")
+ 
diff --git a/dev-lisp/clisp/files/2.34/install-clc.lisp b/dev-lisp/clisp/files/2.34/install-clc.lisp
new file mode 100644
index 000000000000..06cb217d32cf
--- /dev/null
+++ b/dev-lisp/clisp/files/2.34/install-clc.lisp
@@ -0,0 +1,15 @@
+;;;; -*- Mode: Lisp; Package: CL-USER -*-
+;;;; Copyright (c) 2004 Kevin M. Rosenberg
+;;;; GNU GPL v2 license
+
+(in-package #:cl-user)
+
+(handler-case
+    (load "/usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp")
+  (error (e)
+    (format t "Error during loading of common-lisp-controller.lisp: ~A~%" e)))
+
+(handler-case
+    (common-lisp-controller:init-common-lisp-controller-v4 "clisp")
+  (error (e)
+    (format t "Error during init-common-lisp-controller-v4: ~A~%" e)))
diff --git a/dev-lisp/clisp/files/clisp-2.30-gentoo.patch b/dev-lisp/clisp/files/clisp-2.30-gentoo.patch
deleted file mode 100644
index a3c8d5b2350f..000000000000
--- a/dev-lisp/clisp/files/clisp-2.30-gentoo.patch
+++ /dev/null
@@ -1,32 +0,0 @@
-diff -ur clisp-2.30~/modules/wildcard/Makefile.in clisp-2.30/modules/wildcard/Makefile.in
---- clisp-2.30~/modules/wildcard/Makefile.in	2000-03-31 18:17:50.000000000 -0600
-+++ clisp-2.30/modules/wildcard/Makefile.in	2003-03-07 11:41:22.000000000 -0600
-@@ -24,7 +24,7 @@
- 	$(CC) $(CFLAGS) -I$(INCLUDES) -c wildcard.c
- 
- fnmatch.o : fnmatch.c fnmatch.h
--	$(CC) $(CFLAGS) -I. -DHAVE_CONFIG_H -D_LIBC -c fnmatch.c
-+	$(CC) $(CFLAGS) -I. -DHAVE_CONFIG_H -DLIBC -c fnmatch.c
- 
- # Make a module
- clisp-module : all
-Only in clisp-2.30/modules/wildcard: Makefile.in~
-diff -ur clisp-2.30~/modules/wildcard/fnmatch.c clisp-2.30/modules/wildcard/fnmatch.c
---- clisp-2.30~/modules/wildcard/fnmatch.c	1998-07-22 15:22:52.000000000 -0500
-+++ clisp-2.30/modules/wildcard/fnmatch.c	2003-03-07 11:41:14.000000000 -0600
-@@ -37,7 +37,7 @@
-    program understand `configure --with-gnu-libc' and omit the object files,
-    it is simpler to just do this in the source for each such file.  */
- 
--#if defined (_LIBC) || !defined (__GNU_LIBRARY__)
-+#if defined (LIBC) || !defined (__GNU_LIBRARY__)
- 
- 
- # if defined (STDC_HEADERS) || !defined (isascii)
-@@ -238,4 +238,4 @@
- # undef FOLD
- }
- 
--#endif	/* _LIBC or not __GNU_LIBRARY__.  */
-+#endif	/* LIBC or not __GNU_LIBRARY__.  */
-Only in clisp-2.30/modules/wildcard: fnmatch.c~
diff --git a/dev-lisp/clisp/files/clisp-2.30-linux.lisp-upstream.patch b/dev-lisp/clisp/files/clisp-2.30-linux.lisp-upstream.patch
deleted file mode 100644
index b6e3ed363bab..000000000000
--- a/dev-lisp/clisp/files/clisp-2.30-linux.lisp-upstream.patch
+++ /dev/null
@@ -1,122 +0,0 @@
-===================================================================
-RCS file: /cvsroot/clisp/clisp/modules/bindings/linuxlibc6/linux.lisp,v
-retrieving revision 1.16
-retrieving revision 1.18
-diff -u -r1.16 -r1.18
---- clisp/clisp/modules/bindings/linuxlibc6/linux.lisp	2002/07/09 21:28:04	1.16 clisp_2_30-2002-09-15
-+++ clisp/clisp/modules/bindings/linuxlibc6/linux.lisp	2003/02/09 23:27:40	1.18 HEAD
-@@ -403,8 +403,11 @@
- ; ------------------------------ <errnos.h> -----------------------------------
- 
- (def-call-out __errno_location (:arguments) (:return-type (c-ptr int)))
-+;; both are broken:
- ;; (define-symbol-macro errno (deref (foreign-value (__errno_location))))
--(def-c-var errno (:type ffi:int))
-+;; *** - FFI::%DEREF: argument is not a foreign variable: 22
-+;; (def-c-var errno (:type ffi:int))
-+;; link error: "undefined reference to `errno'"
- 
- ; ------------------------------ <errno.h> ------------------------------------
- 
-@@ -506,7 +509,7 @@
- (defconstant PIPE_BUF 4096)
- )
- 
--;;; ----------------------------- <local_lim.h> ---------------------------------
-+;;; ----------------------------- <local_lim.h> -------------------------------
- 
- (defconstant _POSIX_THREAD_KEYS_MAX 128)
- (defconstant PTHREAD_KEYS_MAX 1024)
-@@ -518,7 +521,10 @@
- ;;; ---------------------------- <posix1_lim.h> ------------------------------
- 
- (defconstant SSIZE_MAX INT_MAX)
--(defconstant NGROUPS_MAX _POSIX_NGROUPS_MAX)
-+;; #ifndef NGROUPS_MAX
-+;; # define NGROUPS_MAX _POSIX_NGROUPS_MAX
-+;; #endif
-+;; (defconstant NGROUPS_MAX _POSIX_NGROUPS_MAX)
- 
- ;;; ---------------------------- <posix2_lim.h> ------------------------------
- 
-@@ -620,7 +626,7 @@
- (defconstant EXIT_FAILURE 1)
- (defconstant EXIT_SUCCESS 0)
- 
--(def-call-out __ctype_get_mb_cur_max (:arguments) (:return-type int))
-+(def-call-out __ctype_get_mb_cur_max (:arguments) (:return-type size_t))
- (define-symbol-macro MB_CUR_MAX (__ctype_get_mb_cur_max))
- 
- (def-call-out atof (:arguments (nptr c-string)) (:return-type double-float))
-@@ -657,10 +663,10 @@
- (def-call-out random (:arguments) (:return-type int32_t))
- (def-call-out srandom (:arguments (seed uint)) (:return-type nil))
- (def-call-out initstate
--    (:arguments (seed uint) (statebuf c-pointer) (statelen size_t))
--  (:return-type c-pointer))
--(def-call-out setstate (:arguments (statebuf c-pointer))
--  (:return-type c-pointer))
-+    (:arguments (seed uint) (statebuf c-string) (statelen size_t))
-+  (:return-type c-string))
-+(def-call-out setstate (:arguments (statebuf c-string))
-+  (:return-type c-string))
- 
- ;; (def-c-struct random_data ...)
- (def-call-out random_r
-@@ -691,8 +697,8 @@
-   (:return-type long))
- (def-call-out srand48 (:arguments (seedval long))
-   (:return-type nil))
--(def-call-out seed48 (:arguments (seed16v (c-ptr (c-array ushort 3))))
--  (:return-type (c-ptr (c-array ushort 3)) :none))
-+(def-call-out seed48 (:arguments (seed16v (c-array ushort 3)))
-+  (:return-type (c-ptr ushort) :none))
- (def-call-out lcong48 (:arguments (param (c-ptr (c-array ushort 7))))
-   (:return-type nil))
- 
-@@ -755,7 +761,7 @@
- (def-call-out setenv
-     (:arguments (name c-string) (value c-string) (replace boolean))
-   (:return-type int))
--(def-call-out unsetenv (:arguments (name c-string)) (:return-type nil))
-+(def-call-out unsetenv (:arguments (name c-string)) (:return-type int))
- 
- (def-call-out clearenv (:arguments) (:return-type int))
- 
-@@ -778,7 +784,7 @@
-     (:arguments (name c-string)
-                 (resolved (c-ptr (c-array-max character #.PATH_MAX))
-                           :out :alloca))
--  (:return-type (c-ptr (c-array-max character #.PATH_MAX))))
-+  (:return-type c-string))
- 
- (def-c-type comparison_fn_t
-     (c-function (:arguments (p1 c-pointer) (p2 c-pointer))
-@@ -1169,14 +1175,19 @@
- 
- (def-c-var environ (:type (c-array-ptr c-string)) (:read-only t))
- 
--;(def-call-out execve
--;    (:arguments (path c-string) (argv c-pointer) (envp c-pointer)) ; ??
--;  (:return-type int))
--;(def-call-out fexecve
--;    (:arguments (fd int) (argv c-pointer) (envp c-pointer)) ; ??
--;  (:return-type int)) ; is a stub (see <gnu/stubs.h>)
--;(def-call-out execv (:arguments (path c-string) (argv c-pointer)) ; ??
--;  (:return-type int))
-+(def-call-out execv
-+    (:arguments (path c-string) (argv (c-array-ptr c-string)))
-+  (:return-type int)
-+  (:name "execv"))
-+(def-call-out execve
-+    (:arguments (path c-string) (argv (c-array-ptr c-string))
-+                (envp (c-array-ptr c-string)))
-+  (:return-type int)
-+  (:name "execv"))
-+(def-call-out execvp
-+    (:arguments (file c-string) (argv (c-array-ptr c-string)))
-+  (:return-type int)
-+  (:name "execvp"))
- 
- (def-call-out execle0
-     (:arguments (path c-string) (argv0 c-string) (null c-string)
diff --git a/dev-lisp/clisp/files/digest-clisp-2.34 b/dev-lisp/clisp/files/digest-clisp-2.34
new file mode 100644
index 000000000000..cd5424c2e086
--- /dev/null
+++ b/dev-lisp/clisp/files/digest-clisp-2.34
@@ -0,0 +1 @@
+MD5 68b20ad2d13bdc544e57000e38c856de clisp-2.34.tar.bz2 8000158