Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix md5-string for ccl

Signed-off-by: Hans Huebner <hans.huebner@gmail.com>
  • Loading branch information...
commit 68f434e3303b2599d44e735959c5e1a44758533e 1 parent da043c1
Ralf Stoye authored committed
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/utils/utils.lisp
View
2  src/utils/utils.lisp
@@ -420,7 +420,7 @@ synchronously execute the result using a Bourne-compatible shell.
(defun md5-string (input-string)
(apply #'concatenate 'string (mapcar #'(lambda (c)
(format nil "~2,'0X" c))
- (coerce (#+cmu md5sum-sequence #+sbcl md5sum-string input-string) 'list))))
+ (coerce (#+(or cmu ccl) md5sum-sequence #+sbcl md5sum-string input-string) 'list))))
#+(or)
(defun md5-string (string)
Please sign in to comment.
Something went wrong with that request. Please try again.