Permalink
Browse files

fix md5-string for ccl

Signed-off-by: Hans Huebner <hans.huebner@gmail.com>
  • Loading branch information...
1 parent da043c1 commit 68f434e3303b2599d44e735959c5e1a44758533e Ralf Stoye committed with Sep 12, 2011
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)

0 comments on commit 68f434e

Please sign in to comment.