From: Kevin M. Rosenberg Date: Fri, 12 Nov 2004 03:31:00 +0000 (+0000) Subject: r10155: 11 Nov 2004 Kevin Rosenberg X-Git-Tag: v3.8.6~205 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=39095e2eef81a3457756334cea4580026828eaf8 r10155: 11 Nov 2004 Kevin Rosenberg * clsql-postgresql-socket.asd, db-postgresql-socket/postgresql-socket-package.lisp: Use sb-md5 package on SBCL, recommended by Chris capel --- diff --git a/ChangeLog b/ChangeLog index bc897d2..5c88642 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +11 Nov 2004 Kevin Rosenberg + * clsql-postgresql-socket.asd, db-postgresql-socket/postgresql-socket-package.lisp: + Use sb-md5 package on SBCL, recommended by Chris capel + 09 Nov 2004 Kevin Rosenberg * Version 3.1.0 released: New SQLite3 backend by Aurelio Bignoli * doc/appendix.xml: Document SQLITE3 backend, patch by Aurelio Bignoli diff --git a/clsql-postgresql-socket.asd b/clsql-postgresql-socket.asd index e5e1320..f47eddf 100644 --- a/clsql-postgresql-socket.asd +++ b/clsql-postgresql-socket.asd @@ -29,7 +29,7 @@ :description "Common Lisp SQL PostgreSQL Socket Driver" :long-description "cl-sql-postgresql-socket package provides a database driver to the PostgreSQL database via a socket interface." - :depends-on (clsql uffi md5 #+sbcl sb-bsd-sockets) + :depends-on (clsql uffi #-sbcl md5 #+sbcl sb-md5 #+sbcl sb-bsd-sockets) :components ((:module :db-postgresql-socket :components diff --git a/db-postgresql-socket/postgresql-socket-api.lisp b/db-postgresql-socket/postgresql-socket-api.lisp index ba0cd22..7ad3236 100644 --- a/db-postgresql-socket/postgresql-socket-api.lisp +++ b/db-postgresql-socket/postgresql-socket-api.lisp @@ -426,7 +426,7 @@ troubles." (defun encrypt-md5 (plaintext salt) (string-downcase (format nil "~{~2,'0X~}" - (coerce (md5:md5sum-sequence (concatenate 'string plaintext salt)) 'list)))) + (coerce (md5sum-sequence (concatenate 'string plaintext salt)) 'list)))) (defun reopen-postgresql-connection (connection) "Reopen the given PostgreSQL connection. Closes any existing diff --git a/db-postgresql-socket/postgresql-socket-package.lisp b/db-postgresql-socket/postgresql-socket-package.lisp index fa4062b..f038a94 100644 --- a/db-postgresql-socket/postgresql-socket-package.lisp +++ b/db-postgresql-socket/postgresql-socket-package.lisp @@ -21,7 +21,7 @@ #+lispworks (require "comm") (defpackage #:postgresql-socket - (:use #:cl) + (:use #:cl #-sbcl md5 #+sbcl sb-md5) (:export #:pgsql-ftype #:pgsql-ftype#bytea #:pgsql-ftype#int2