From 3c51661bd806c11f2a6c1cd29b34637b9baec3b5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Tue, 7 Jul 2015 12:56:11 +0200 Subject: [PATCH] Add support for other implementations (flexi-streams dependency). --- md5.asd | 5 ++++- md5.lisp | 3 ++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/md5.asd b/md5.asd index 8cc1d5a..ec34697 100755 --- a/md5.asd +++ b/md5.asd @@ -15,5 +15,8 @@ :maintainer "Pierre R. Mai " :licence "Public Domain" :version "2.0.2" - #+sbcl :depends-on #+sbcl ("sb-rotate-byte") + :depends-on (#+sbcl "sb-rotate-byte" + #-(or :cmu :sbcl + (and :lispworks (not :lispworks4)) :ccl :allegro) + :flexi-streams) :components ((:file "md5"))) diff --git a/md5.lisp b/md5.lisp index b1dae39..bb54f59 100755 --- a/md5.lisp +++ b/md5.lisp @@ -711,7 +711,8 @@ determined by the underlying implementation." #-(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.")))) + (md5sum-sequence + (flexi-streams:string-to-octets string))))) (eval-when (:compile-toplevel :load-toplevel :execute) (defconstant +buffer-size+ (* 128 1024)