diff options
Diffstat (limited to 'dev-lisp/cl-sha1/files/cl-sha1-gentoo.patch')
| -rw-r--r-- | dev-lisp/cl-sha1/files/cl-sha1-gentoo.patch | 60 |
1 files changed, 33 insertions, 27 deletions
diff --git a/dev-lisp/cl-sha1/files/cl-sha1-gentoo.patch b/dev-lisp/cl-sha1/files/cl-sha1-gentoo.patch index f87dc0ae064c..b8382997a23d 100644 --- a/dev-lisp/cl-sha1/files/cl-sha1-gentoo.patch +++ b/dev-lisp/cl-sha1/files/cl-sha1-gentoo.patch @@ -1,39 +1,45 @@ -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 @@ +diff -u sb-sha1.orig/sb-sha1.asd sb-sha1/sb-sha1.asd +--- sb-sha1.orig/sb-sha1.asd 2003-08-08 02:28:18.000000000 -0500 ++++ sb-sha1/sb-sha1.asd 2003-10-17 11:21:43.789994592 -0500 +@@ -5,11 +5,15 @@ + (in-package #:sb-sha1-system) - (defsystem sb-sha1 -- :depends-on (sb-rotate-byte) +-(defsystem sb-sha1 ++#+sbcl (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"))) ++#-sbcl (defsystem sb-sha1 ++ :version "1.0" ++ :components ((:file "sha1"))) ++ + (defmethod perform :after ((o load-op) (c (eql (find-system :sb-sha1)))) + (provide 'sb-sha1)) +@@ -25,4 +29,3 @@ (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)))) +Only in sb-sha1/: sb-sha1.asd.orig +diff -u sb-sha1.orig/sha1.lisp sb-sha1/sha1.lisp +--- sb-sha1.orig/sha1.lisp 2003-09-11 02:40:20.000000000 -0500 ++++ sb-sha1/sha1.lisp 2003-10-17 11:25:03.897573616 -0500 +@@ -526,9 +526,11 @@ + (update-sha1-state state sequence :start start :end real-end)) + (finalize-sha1-state state))) + +-(defconstant +buffer-size+ (* 128 1024) +- "Size of internal buffer to use for sha1sum-stream and sha1sum-file +-operations. This should be a multiple of 64, the SHA1 block size.") ++(eval-when (:compile-toplevel) ++ (defconstant +buffer-size+ (* 128 1024) ++ "Size of internal buffer to use for sha1sum-stream and ++sha1sum-file operations. This should be a multiple of 64, the SHA1 ++block size.")) + + (deftype buffer-index () `(integer 0 ,+buffer-size+)) - ;;; helper macro for rounds, with variable capture -Only in sb-sha1-1.0/: sha1.lisp~ |