* clsql-postgresql-socket.asd, db-postgresql-socket/postgresql-socket-package.lisp:
Use sb-md5 package on SBCL, recommended by Chris capel
+11 Nov 2004 Kevin Rosenberg <kevin@rosenberg.net>
+ * 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 <kevin@rosenberg.net>
* Version 3.1.0 released: New SQLite3 backend by Aurelio Bignoli
* doc/appendix.xml: Document SQLITE3 backend, patch by Aurelio Bignoli
09 Nov 2004 Kevin Rosenberg <kevin@rosenberg.net>
* Version 3.1.0 released: New SQLite3 backend by Aurelio Bignoli
* doc/appendix.xml: Document SQLITE3 backend, patch by Aurelio Bignoli
: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."
: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
:components
((:module :db-postgresql-socket
:components
(defun encrypt-md5 (plaintext salt)
(string-downcase
(format nil "~{~2,'0X~}"
(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
(defun reopen-postgresql-connection (connection)
"Reopen the given PostgreSQL connection. Closes any existing
#+lispworks (require "comm")
(defpackage #:postgresql-socket
#+lispworks (require "comm")
(defpackage #:postgresql-socket
+ (:use #:cl #-sbcl md5 #+sbcl sb-md5)
(:export #:pgsql-ftype
#:pgsql-ftype#bytea
#:pgsql-ftype#int2
(:export #:pgsql-ftype
#:pgsql-ftype#bytea
#:pgsql-ftype#int2