summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Kennedy <mkennedy@gentoo.org>2003-11-30 12:14:24 +0000
committerMatthew Kennedy <mkennedy@gentoo.org>2003-11-30 12:14:24 +0000
commitd0920b733f7d3df6a692fa8345c50f86e3cb6ffb (patch)
tree99cdae48d91edb97bab5d585cae269c1fd48d6d1 /dev-lisp/cl-arnesi/files
parent*** empty log message *** (diff)
downloadgentoo-2-d0920b733f7d3df6a692fa8345c50f86e3cb6ffb.tar.gz
gentoo-2-d0920b733f7d3df6a692fa8345c50f86e3cb6ffb.tar.bz2
gentoo-2-d0920b733f7d3df6a692fa8345c50f86e3cb6ffb.zip
*** empty log message ***
Diffstat (limited to 'dev-lisp/cl-arnesi/files')
-rw-r--r--dev-lisp/cl-arnesi/files/1.1.0-clisp-specials-gentoo.patch52
-rw-r--r--dev-lisp/cl-arnesi/files/1.1.0-sbcl-toplevel-gentoo.patch45
-rw-r--r--dev-lisp/cl-arnesi/files/digest-cl-arnesi-1.1.01
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