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

This fixes the code to properly work when being loaded uncompiled into

Browse Source 
CMU CL, as noted by John Wiseman.
This commit is contained in:
Pierre R. Mai
2001-11-15 00:13:03 +01:00
parent a1e871e191
commit 7e01799738
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
md5.lisp
View File

@ -111,11 +111,12 @@ where a is the intended low-order byte and d the high-order byte."
(ftype (function (ub32 ub32) ub32) mod32+)) (ftype (function (ub32 ub32) ub32) mod32+))
(defun mod32+ (a b) (defun mod32+ (a b)
(declare (type ub32 a b) (optimize (speed 3) (safety 0) (space 0) (debug 0))) (declare (type ub32 a b) (optimize (speed 3) (safety 0) (space 0) (debug 0)))
#+cmu
(ext:truly-the ub32 (+ a b))
#-cmu
(ldb (byte 32 0) (+ a b))) (ldb (byte 32 0) (+ a b)))
#+cmu
(define-compiler-macro mod32+ (a b)
`(ext:truly-the ub32 (+ ,a ,b)))
(declaim (inline rol32) (declaim (inline rol32)
(ftype (function (ub32 (unsigned-byte 5)) ub32) rol32)) (ftype (function (ub32 (unsigned-byte 5)) ub32) rol32))
(defun rol32 (a s) (defun rol32 (a s)