*** empty log message ***

7 files changed, 178 insertions, 3 deletions

diff --git a/dev-lisp/cl-arnesi/ChangeLog b/dev-lisp/cl-arnesi/ChangeLog
new file mode 100644
index 000000000000..53b22b060fd8
--- /dev/null
+++ b/dev-lisp/cl-arnesi/ChangeLog
@@ -0,0 +1,10 @@
+# ChangeLog for dev-lisp/cl-arnesi
+# Copyright 2000-2003 Gentoo Technologies, Inc.; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/dev-lisp/cl-arnesi/ChangeLog,v 1.1 2003/11/30 12:14:22 mkennedy Exp $
+
+*cl-arnesi-1.1.0 (30 Nov 2003)
+
+  30 Nov 2003; <mkennedy@gentoo.org> cl-arnesi-1.1.0.ebuild, metadata.xml,
+  files/1.1.0-sbcl-toplevel-gentoo.patch:
+  initial import.  ebuild contributed by Matthew Kennedy <mkennedy@gentoo.org>
+
diff --git a/dev-lisp/cl-arnesi/Manifest b/dev-lisp/cl-arnesi/Manifest
index 5b24c720bfeb..4f14c35f6413 100644
--- a/dev-lisp/cl-arnesi/Manifest
+++ b/dev-lisp/cl-arnesi/Manifest
@@ -1,4 +1,6 @@
-MD5 9b65b0341efc8f4b29498aad23315229 metadata.xml 164
-MD5 9e27c53efffffc4147080fcc90f57e0d cl-arnesi-1.1.0.ebuild 1194
-MD5 67fb441008e712270cf90473752d94bd cl-arnesi-1.1.0.ebuild~ 1279
+MD5 0dd9e01e84dbe563736f298d9df7ce73 ChangeLog 449
+MD5 ff897f603d1e4c01cc2732d02e362ef1 metadata.xml 587
+MD5 b0f5d5795750d7c44a2f7fb90e1c02e5 cl-arnesi-1.1.0.ebuild 1365
 MD5 1cec85888eefa9a62788eb87b9cb0a01 files/digest-cl-arnesi-1.1.0 64
+MD5 aa8ccd8889afdcb196276bdb7c6a1f43 files/1.1.0-sbcl-toplevel-gentoo.patch 2114
+MD5 beb2d80714e44a2bf3630acf73bfea00 files/1.1.0-clisp-specials-gentoo.patch 2249
diff --git a/dev-lisp/cl-arnesi/cl-arnesi-1.1.0.ebuild b/dev-lisp/cl-arnesi/cl-arnesi-1.1.0.ebuild
new file mode 100644
index 000000000000..2e58a1f1d93e
--- /dev/null
+++ b/dev-lisp/cl-arnesi/cl-arnesi-1.1.0.ebuild
@@ -0,0 +1,52 @@
+# Copyright 1999-2003 Gentoo Technologies, Inc.
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-lisp/cl-arnesi/cl-arnesi-1.1.0.ebuild,v 1.1 2003/11/30 12:14:22 mkennedy Exp $
+
+inherit common-lisp
+
+DESCRIPTION="arnesi is a collection of small bits and pieces of common lisp code."
+HOMEPAGE="http://www.common-lisp.net/project/bese/#arnesi"
+SRC_URI="ftp://ftp.common-lisp.net/pub/project/bese/arnesi_${PV}.tar.gz"
+LICENSE="BSD"
+SLOT="0"
+KEYWORDS="~x86"
+# IUSE="doc"
+DEPEND="dev-lisp/common-lisp-controller
+	virtual/commonlisp"
+# 	doc? ( app-text/tetex )"
+
+CLPACKAGE=arnesi
+
+S=${WORKDIR}/arnesi_${PV}
+
+src_unpack() {
+	unpack ${A}
+	epatch ${FILESDIR}/${PV}-sbcl-toplevel-gentoo.patch
+	epatch ${FILESDIR}/${PV}-clisp-specials-gentoo.patch
+}
+
+# src_compile() {
+# 	if use doc; then
+# 		make -C docs
+# 	fi
+# }
+
+src_install() {
+	dodir /usr/share/common-lisp/source/arnesi
+	dodir /usr/share/common-lisp/systems
+	cp -R src ${D}/usr/share/common-lisp/source/arnesi/
+	common-lisp-install arnesi.asd
+	common-lisp-system-symlink
+	dosym /usr/share/common-lisp/source/arnesi/arnesi.asd \
+		/usr/share/common-lisp/systems/
+#	use doc && dodoc docs/arnesi.pdf
+	dodoc docs/arnesi.pdf
+}
+
+pkg_preinst() {
+	rm -rf /usr/lib/common-lisp/*/${CLPACKAGE} || true
+}
+
+pkg_postrm() {
+	rm -rf /usr/lib/common-lisp/*/${CLPACKAGE} || true
+}
diff --git a/dev-lisp/cl-arnesi/files/1.1.0-clisp-specials-gentoo.patch b/dev-lisp/cl-arnesi/files/1.1.0-clisp-specials-gentoo.patch
new file mode 100644
index 000000000000..96e92086a236
--- /dev/null
+++ b/dev-lisp/cl-arnesi/files/1.1.0-clisp-specials-gentoo.patch
@@ -0,0 +1,52 @@
+diff -ur arnesi_1.1.0.orig/src/specials.lisp arnesi_1.1.0/src/specials.lisp
+--- arnesi_1.1.0.orig/src/specials.lisp	2003-11-19 07:50:23.000000000 -0600
++++ arnesi_1.1.0/src/specials.lisp	2003-11-30 05:33:45.775662608 -0600
+@@ -2,6 +2,12 @@
+ 
+ (in-package :it.bese.arnesi)
+ 
++(defun check-required (required name vars)
++  (dolist* (var required)
++    (assert (member var vars)
++                        (var)
++                        "Unrecognized symbol ~S in ~S." var name)))
++
+ (defmacro def-special-enviroment (name (&key accessor binder binder*) &rest vars)
+   "Define two macros for dealing with groups or related special
+   variables.
+@@ -25,26 +31,26 @@
+   (unless binder*
+     (setf binder*  (intern-concat (list binder '#:*) (symbol-package binder))))
+   `(progn
+-     (flet ((check-required (required)
+-              (dolist* (var required)
+-                (assert (member var ',vars)
+-                        (var)
+-                        "Unrecognized symbol ~S in ~S." var ',name))))
++;;      (flet ((check-required (required)
++;;               (dolist* (var required)
++;;                 (assert (member var ',vars)
++;;                         (var)
++;;                         "Unrecognized symbol ~S in ~S." var ',name))))
+        (defmacro ,binder (requested-vars &body body)
+-         (check-required (mapcar #'car requested-vars))
++         (check-required (mapcar #'car requested-vars) ',name ',vars)
+          `(let ,requested-vars
+             (declare (special ,@(mapcar #'car requested-vars)))
+             ,@body))
+        (defmacro ,binder* (requested-vars &body body)
+-         (check-required (mapcar #'car requested-vars))
++         (check-required (mapcar #'car requested-vars) ',name ',vars)
+          `(let* ,requested-vars
+             (declare (special ,@(mapcar #'car requested-vars)))
+             ,@body))
+        (defmacro ,accessor (requested-vars &body body)
+-         (check-required requested-vars)
++         (check-required requested-vars ',name ',vars)
+          `(locally (declare (special ,@requested-vars))
+             ,@body))
+-       ',name)))
++       ',name))
+   
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ ;;;; Copyright (c) 2002-2003, Edward Marco Baringer
diff --git a/dev-lisp/cl-arnesi/files/1.1.0-sbcl-toplevel-gentoo.patch b/dev-lisp/cl-arnesi/files/1.1.0-sbcl-toplevel-gentoo.patch
new file mode 100644
index 000000000000..00bddfbf785e
--- /dev/null
+++ b/dev-lisp/cl-arnesi/files/1.1.0-sbcl-toplevel-gentoo.patch
@@ -0,0 +1,45 @@
+diff -ur arnesi_1.1.0.orig/src/string.lisp arnesi_1.1.0/src/string.lisp
+--- arnesi_1.1.0.orig/src/string.lisp	2003-11-19 07:50:23.000000000 -0600
++++ arnesi_1.1.0/src/string.lisp	2003-11-30 01:35:09.262103488 -0600
+@@ -2,15 +2,16 @@
+ 
+ (in-package :it.bese.arnesi)
+ 
+-(defconstant +lower-case-ascii-alphabet+ "abcdefghijklmnopqrstuvwxyz")
++(eval-when (:compile-toplevel)
++  (defconstant +lower-case-ascii-alphabet+ "abcdefghijklmnopqrstuvwxyz")
+ 
+-(defconstant +upper-case-ascii-alphabet+ "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
++  (defconstant +upper-case-ascii-alphabet+ "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
+ 
+-(defconstant +ascii-alphabet+ "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
++  (defconstant +ascii-alphabet+ "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
+ 
+-(defconstant +alphanumeric-ascii-alphabet+ "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")
++  (defconstant +alphanumeric-ascii-alphabet+ "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")
+ 
+-(defconstant +base64-alphabet+ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/")
++  (defconstant +base64-alphabet+ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"))
+ 
+ (defun random-string (&optional (length 32) (alphabet +ascii-alphabet+))
+   "Returns a random alphabetic string."
+@@ -54,13 +55,14 @@
+ 		  when (not (member (aref string (1- index)) chars))
+ 		    do (return index)))))
+ 
+-(defconstant ~% (format nil "~%"))
++(eval-when (:compile-toplevel)
++  (defconstant ~% (format nil "~%"))
+ 
+-(defconstant ~T (string #\Tab))
++  (defconstant ~T (string #\Tab))
+ 
+-(defconstant +CR-LF+ (make-array 2 :element-type 'character
++  (defconstant +CR-LF+ (make-array 2 :element-type 'character
+                                    :initial-contents (list (code-char #x0D)
+-                                                           (code-char #x0A))))
++                                                           (code-char #x0A)))))
+ 
+ (defun ~D (number &optional stream &key mincol pad-char)
+   (format stream "~v,vD" mincol pad-char number))
+Only in arnesi_1.1.0/src: string.lisp~
diff --git a/dev-lisp/cl-arnesi/files/digest-cl-arnesi-1.1.0 b/dev-lisp/cl-arnesi/files/digest-cl-arnesi-1.1.0
new file mode 100644
index 000000000000..9aeb3880606e
--- /dev/null
+++ b/dev-lisp/cl-arnesi/files/digest-cl-arnesi-1.1.0
@@ -0,0 +1 @@
+MD5 95a2f63ed6ca73a4527866366c381a9b arnesi_1.1.0.tar.gz 155453
diff --git a/dev-lisp/cl-arnesi/metadata.xml b/dev-lisp/cl-arnesi/metadata.xml
new file mode 100644
index 000000000000..032b667f7383
--- /dev/null
+++ b/dev-lisp/cl-arnesi/metadata.xml
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd">
+<pkgmetadata>
+<herd>common-lisp</herd>
+<longdescription>
+arnesi is a collection of small bits and pieces of common lisp
+code. It includes, among other things: * usefull flow control macros -
+while, whichever, if-bind, etc. * a simple logging facility
+kind-of/sort-of/maybe like log4j. * url and html escaping * list
+pattern matching * collecting and reducing macros * an ad-hoc, bug
+ridden implementation of half of call/cc.  * hygenic macros
+</longdescription>
+</pkgmetadata>