OSCL/md5
2
0
Fork 0
mirror of https://github.com/pmai/md5.git synced 2025-12-21 14:34:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

Regularize use of keywords in #+/#- complex conditionals.

Browse Source
This commit is contained in:
Pierre R. Mai
2012-10-22 14:43:01 +02:00
parent 6ee9356e15
commit 2d2ea145bf
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
md5.lisp
View File

@ -192,7 +192,7 @@ where a is the intended low-order byte and d the high-order byte."
(sb-rotate-byte:rotate-byte s (byte 32 0) a) (sb-rotate-byte:rotate-byte s (byte 32 0) a)
#+lw-int32 #+lw-int32
(sys:int32-logior (sys:int32<< a s) (int32>>logical a (- 32 s))) (sys:int32-logior (sys:int32<< a s) (int32>>logical a (- 32 s)))
#-(or cmu sbcl lw-int32) #-(or :cmu :sbcl :lw-int32)
(logior (ldb (byte 32 0) (ash a s)) (ash a (- s 32)))) (logior (ldb (byte 32 0) (ash a s)) (ash a (- s 32))))
;;; Section 3.4: Table T ;;; Section 3.4: Table T
@ -457,7 +457,7 @@ starting at buffer-offset."
(* count vm:byte-bits)) (* count vm:byte-bits))
#+sbcl #+sbcl
(sb-kernel:ub8-bash-copy from from-offset buffer buffer-offset count) (sb-kernel:ub8-bash-copy from from-offset buffer buffer-offset count)
#-(or cmu sbcl) #-(or :cmu :sbcl)
(etypecase from (etypecase from
(simple-string (simple-string
(loop for buffer-index of-type (integer 0 64) from buffer-offset (loop for buffer-index of-type (integer 0 64) from buffer-offset
@ -620,7 +620,7 @@ simple-arrays with such element types."
(declare (ignore real-end)) (declare (ignore real-end))
(update-md5-state state data :start real-start (update-md5-state state data :start real-start
:end (+ real-start (- end start))))) :end (+ real-start (- end start)))))
#-(or cmu sbcl) #-(or :cmu :sbcl)
(let ((real-end (or end (length sequence)))) (let ((real-end (or end (length sequence))))
(declare (type fixnum real-end)) (declare (type fixnum real-end))
(update-md5-state state sequence :start start :end real-end)) (update-md5-state state sequence :start start :end real-end))