X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-postgresql-socket%2Fpostgresql-socket-api.lisp;h=879e5bb2a0ede5a358f45e88dad9205676790c87;hb=8997e2789a6677f5d5c78e0b630090824be30307;hp=899d3bbba49911a1c61d2cc47707599fe88818f4;hpb=104ea5dc162028f1433940e19af03b6919a6082c;p=clsql.git

diff --git a/db-postgresql-socket/postgresql-socket-api.lisp b/db-postgresql-socket/postgresql-socket-api.lisp
index 899d3bb..879e5bb 100644
--- a/db-postgresql-socket/postgresql-socket-api.lisp
+++ b/db-postgresql-socket/postgresql-socket-api.lisp
@@ -122,6 +122,7 @@ socket interface"
   #+ccl
   (write-sequence (ccl:encode-string-to-octets
                    value :external-format :utf-8) socket)
+  #+ccl
   (write-byte 0 socket)
   #+sb-unicode
   (write-sequence (sb-ext:string-to-octets value :null-terminate t)
@@ -489,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