From 157eb9e5eb1ad76caac9b9fb9eefb973e566b17f Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Tue, 23 Oct 2012 02:11:28 +0200 Subject: [PATCH] Add md5sum-string support for AllegroCL. --- md5.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/md5.lisp b/md5.lisp index 263560f..081ce08 100644 --- a/md5.lisp +++ b/md5.lisp @@ -677,7 +677,11 @@ in the resulting binary representation." (md5sum-sequence (ccl:encode-string-to-octets string :external-format external-format :start start :end end)) - #-(or :cmu :sbcl (and :lispworks (not :lispworks4)) :ccl) + #+allegro + (md5sum-sequence + (excl:string-to-octets string :external-format external-format + :null-terminate nil :start start :end end)) + #-(or :cmu :sbcl (and :lispworks (not :lispworks4)) :ccl :allegro) (if (<= char-code-limit 256) (md5sum-sequence string :start start :end end) (error "md5:md5sum-string is not supported for your implementation."))))