summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
f77d85f)
https://github.com/marijnh/Postmodern/issues/27 has a good description
of the changes in the MD5 library:
The latest "release" of md5 (dated
20121125 according to quicklisp) will silently cast strings to byte arrays, yielding incorrect checksums and causing cl-postgres to fail to authenticate.
(defun encrypt-md5 (plaintext salt)
(string-downcase
(format nil "~{~2,'0X~}"
(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
(defun reopen-postgresql-connection (connection)
"Reopen the given PostgreSQL connection. Closes any existing