commit: cd82b84a385ab32f1ac500b3c8c721e130c16ce9
Author: Chema Alonso Josa gentoo org>
AuthorDate: Sun Mar 18 22:24:10 2018 +
Commit: José María Alonso gentoo org>
CommitDate: Sun Mar 18 22:24:10 2018 +
URL:https://gitweb.gentoo.org/proj/lisp.git/commit/?id=cd82b84a
dev-lisp/rsm-bool-comp: Drops package
.../files/1.2-gentoo-fix-type-declarations.patch | 473 -
dev-lisp/rsm-bool-comp/rsm-bool-comp-1.2.ebuild| 36 --
2 files changed, 509 deletions(-)
diff --git
a/dev-lisp/rsm-bool-comp/files/1.2-gentoo-fix-type-declarations.patch
b/dev-lisp/rsm-bool-comp/files/1.2-gentoo-fix-type-declarations.patch
deleted file mode 100644
index 39582492..
--- a/dev-lisp/rsm-bool-comp/files/1.2-gentoo-fix-type-declarations.patch
+++ /dev/null
@@ -1,473 +0,0 @@
-diff -ur cl-rsm-bool-comp-1.0.orig/bool-comp.lisp
cl-rsm-bool-comp-1.0/bool-comp.lisp
cl-rsm-bool-comp.orig/bool-comp.lisp 2003-09-11 11:40:46.0
-0500
-+++ cl-rsm-bool-comp/bool-comp.lisp2003-10-26 17:48:50.0 -0600
-@@ -151,7 +151,7 @@
- has all entries set to K.
- Returns t if at least one entry differs from K; otherwise nil."
- (declare (type fixnum size)
-- (type vector (unsigned-byte 2) term))
-+ (type (vector (unsigned-byte 2) *) term))
- (do ((i 0 (1+ i)))
- ((= i size) nil)
- (declare (type fixnum i))
-@@ -164,7 +164,7 @@
- (let* ((len (term-length args))
- (term (make-array len :initial-element e
-:element-type '(unsigned-byte 2
--(declare (type vector (unsigned-byte 2) term)
-+(declare (type (vector (unsigned-byte 2) *) term)
- (type fixnum len))
- (do ((i 0 (1+ i))
- (cur args (cdr cur)))
-@@ -176,10 +176,10 @@
-
- (defun copy-term (term len)
- "Copy a term."
-- (declare (type vector (unsigned-byte 2) term)
-+ (declare (type (vector (unsigned-byte 2) *) term)
-(type fixnum len))
- (let ((new-term (make-identity-term len)))
--(declare (type vector (unsigned-byte 2) new-term))
-+(declare (type (vector (unsigned-byte 2) *) new-term))
- (do ((i 0 (1+ i)))
- ((= i len) new-term)
- (declare (type fixnum i))
-@@ -189,18 +189,18 @@
-
- (defun invert-term (term)
- "Finds the logical negation of a term."
-- (declare (type vector (unsigned-byte 2) term))
-+ (declare (type (vector (unsigned-byte 2) *) term))
- (let ((len (term-length term))
- (temp-term nil)
- (result nil))
--(declare (type vector (unsigned-byte 2) temp-term)
-+(declare (type (vector (unsigned-byte 2) *) temp-term)
- (type fixnum len))
- (do ((i 0 (1+ i))
- (new-term (make-identity-term (term-length term
- ((= len i) result)
- (declare (type fixnum i)
-- (type vector (unsigned-byte 2) new-term)
-- (type vector (unsigned-byte 2) temp-term))
-+ (type (vector (unsigned-byte 2) *) new-term)
-+ (type (vector (unsigned-byte 2) *) temp-term))
- (case (term-ref term i)
- (#.h (setf temp-term (copy-term new-term len))
- (term-set new-term i h)
-@@ -215,13 +215,13 @@
- (defun term-mult (t1 t2 size)
- "Takes the logical AND of two terms of the same size.
- Assumes both terms are of size ."
-- (declare (type vector (unsigned-byte 2) t1)
-- (type vector (unsigned-byte 2) t2)
-+ (declare (type (vector (unsigned-byte 2) *) t1)
-+ (type (vector (unsigned-byte 2) *) t2)
-(type fixnum size))
- (let ((prod (make-identity-term size))
- val
- t2-cur)
--(declare (type vector (unsigned-byte 2) prod)
-+(declare (type (vector (unsigned-byte 2) *) prod)
- (type (unsigned-byte 2) val)
- (type (unsigned-byte 2) t2-cur))
- (do ((i 0 (1+ i)))
-@@ -244,7 +244,7 @@
- (defun term-list-mult (t1 tl2 t-len)
- "Creates a new list by doing a term-wise AND of with .
- Assumes and each member of have size ."
-- (declare (type vector (unsigned-byte 2) t1))
-+ (declare (type (vector (unsigned-byte 2) *) t1))
- (if (or (null t1) (null tl2))
- (error "term-list-mult: null list")
- (progn
-@@ -253,7 +253,7 @@
- (prod nil))
- (do ((curj tl2 (cdr curj)))
- ((null curj) (or result zero-term))
-- (declare (type vector (unsigned-byte 2) prod))
-+ (declare (type (vector (unsigned-byte 2) *) prod))
- (setf prod (term-mult t1 (car curj) t-len))
- (when (not (is-zero-term prod)) (push prod result)))
-
-@@ -268,13 +268,13 @@
- (result nil))
- (do ((curi tl1 (cdr curi)))
- ((null curi) (or result zero-term))
-- (declare (type vector (unsigned-byte 2) t1-item)
-- (type vector (unsigned-byte 2) prod))
-+ (declare (type (vector (unsigned-byte 2) *) t1-item)
-+ (type (vector (unsigned-byte 2) *) prod))
-