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

Added ID comment, and fixed doc-string for finalize-md5-state.

Browse Source
This commit is contained in:
Pierre R. Mai
2001-11-15 00:16:07 +01:00
parent 7e01799738
commit b06a3a4106
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
md5.lisp
View File

@ -5,6 +5,8 @@
;;;; cmucl-help mailing-list hosted at cons.org, in November 2001 and ;;;; cmucl-help mailing-list hosted at cons.org, in November 2001 and
;;;; has been placed into the public domain. ;;;; has been placed into the public domain.
;;;; ;;;;
;;;; $Id: md5.lisp,v 1.7 2001/11/15 00:16:07 dent Exp $
;;;;
;;;; While the implementation should work on all conforming Common ;;;; While the implementation should work on all conforming Common
;;;; Lisp implementations, it has only been optimized for CMU CL, ;;;; Lisp implementations, it has only been optimized for CMU CL,
;;;; where it achieved comparable performance to the standard md5sum ;;;; where it achieved comparable performance to the standard md5sum
@ -445,7 +447,7 @@ by processing any remaining input in its buffer, with suitable padding
and appended bit-length, as specified by the MD5 standard. and appended bit-length, as specified by the MD5 standard.
The resulting MD5 message-digest is returned as an array of sixteen The resulting MD5 message-digest is returned as an array of sixteen
x(unsigned-byte 8) values. Calling `update-md5-state' after a call to (unsigned-byte 8) values. Calling `update-md5-state' after a call to
`finalize-md5-state' results in unspecified behaviour." `finalize-md5-state' results in unspecified behaviour."
(declare (type md5-state state) (declare (type md5-state state)
(optimize (speed 3) #+cmu (safety 0) (space 0) (debug 0)) (optimize (speed 3) #+cmu (safety 0) (space 0) (debug 0))