initial imoprt

2 files changed, 40 insertions, 0 deletions

diff --git a/dev-lisp/cl-sha1/files/cl-sha1-gentoo.patch b/dev-lisp/cl-sha1/files/cl-sha1-gentoo.patch
new file mode 100644
index 000000000000..f87dc0ae064c
--- /dev/null
+++ b/dev-lisp/cl-sha1/files/cl-sha1-gentoo.patch
@@ -0,0 +1,39 @@
+diff -ur sb-sha1/sb-sha1.asd sb-sha1-1.0/sb-sha1.asd
+--- sb-sha1/sb-sha1.asd	2003-08-08 02:28:18.000000000 -0500
++++ sb-sha1-1.0/sb-sha1.asd	2003-09-28 17:40:58.254138000 -0500
+@@ -6,7 +6,6 @@
+ (in-package #:sb-sha1-system)
+ 
+ (defsystem sb-sha1
+-  :depends-on (sb-rotate-byte)
+   :version "1.0"
+   :components ((:file "sha1")))
+ 
+@@ -18,11 +17,9 @@
+   (operate 'test-op 'sb-sha1-tests))
+ 
+ (defsystem sb-sha1-tests
+-  :depends-on (sb-sha1 sb-rt)
+   :version "1.0"
+   :components ((:file "sha1-tests")))
+ 
+ (defmethod perform ((o test-op) (c (eql (find-system :sb-sha1-tests))))
+   (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
+       (error "test-op failed")))
+-			    
+\ No newline at end of file
+Only in sb-sha1-1.0/: sb-sha1.asd~
+diff -ur sb-sha1/sha1.lisp sb-sha1-1.0/sha1.lisp
+--- sb-sha1/sha1.lisp	2003-09-11 02:40:20.000000000 -0500
++++ sb-sha1-1.0/sha1.lisp	2003-09-28 18:05:03.615409688 -0500
+@@ -125,9 +125,6 @@
+   (kernel:32bit-logical-or #+little-endian (kernel:shift-towards-end a s)
+ 			   #+big-endian (kernel:shift-towards-start a s)
+ 			   (ash a (- s 32)))
+-  #+sbcl
+-  (sb-rotate-byte:rotate-byte s (byte 32 0) a)
+-  #-(or sbcl cmu)
+   (logior (ldb (byte 32 0) (ash a s)) (ash a (- s 32))))
+ 
+ ;;; helper macro for rounds, with variable capture
+Only in sb-sha1-1.0/: sha1.lisp~
diff --git a/dev-lisp/cl-sha1/files/digest-cl-sha1-1.0 b/dev-lisp/cl-sha1/files/digest-cl-sha1-1.0
new file mode 100644
index 000000000000..c3832497f541
--- /dev/null
+++ b/dev-lisp/cl-sha1/files/digest-cl-sha1-1.0
@@ -0,0 +1 @@
+MD5 8091dbee1611da0d794b4f779c07bc91 sb-sha1-1.0.tar.gz 8757