use md5sum-string instead of md5sum-sequence to adjust to upstream changes
[clsql.git] / db-postgresql-socket / postgresql-socket-api.lisp
index 07b979f8042bc9cf8d3fb676dd685ec12ebb1631..879e5bb2a0ede5a358f45e88dad9205676790c87 100644 (file)
@@ -490,7 +490,7 @@ troubles."
 (defun encrypt-md5 (plaintext salt)
   (string-downcase
    (format nil "~{~2,'0X~}"
-           (coerce (md5sum-sequence (concatenate 'string plaintext salt)) 'list))))
+           (coerce (md5sum-string (concatenate 'string plaintext salt)) 'list))))
 
 (defun reopen-postgresql-connection (connection)
   "Reopen the given PostgreSQL connection.  Closes any existing