3 files changed, 98 insertions, 0 deletions
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