blob: b8382997a23d0f87e30131b47408195b176a476e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
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
+#+sbcl (defsystem sb-sha1
:depends-on (sb-rotate-byte)
:version "1.0"
:components ((:file "sha1")))
+#-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/: 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+))
|
GitWeb
