[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/util.lisp

[BKNR Commits]

Revision: 4119
Author: hans
URL: http://bknr.net/trac/changeset/4119

Fix from Anton Vodonosov to ensure that MD5:MD5SUM-SEQUENCE is always passed a simple string.

U   trunk/thirdparty/hunchentoot/util.lisp

Modified: trunk/thirdparty/hunchentoot/util.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/util.lisp	2008-12-08 22:05:57 UTC (rev 4118)
+++ trunk/thirdparty/hunchentoot/util.lisp	2008-12-09 05:50:48 UTC (rev 4119)
@@ -144,7 +144,7 @@
 (defun md5-hex (string)
   "Calculates the md5 sum of the string STRING and returns it as a hex string."
   (with-output-to-string (s)
-    (loop for code across (md5:md5sum-sequence string)
+    (loop for code across (md5:md5sum-sequence (coerce string 'simple-string))
 	  do (format s "~2,'0x" code))))
 
 (defun escape-for-html (string)