+23 Mar 2007 Kevin Rosenberg <kevin@rosenberg.net>
+ * Version 3.8.2
+ * sql/db-postgresql-socket-api.lisp: Change read-socket-sequence to
+ disable wide characters for crypt salt sequence on SBCL, based
+ on patch from Lars Nostdal.
+
26 Jan 2007 Kevin Rosenberg <kevin@rosenberg.net>
* Version 3.8.1
* sql/pool.lisp: Test pooled connection when popped from
(int32 key))
-(defun read-socket-sequence (stream length)
- "KMR -- Added to support reading from binary stream into a string"
+(defun read-socket-sequence (stream length &optional (allow-wide t))
(declare (stream stream)
(optimize (speed 3) (safety 0)))
#-sb-unicode
(let ((bytes (make-array length :element-type '(unsigned-byte 8))))
(declare (type (simple-array (unsigned-byte 8) (*)) bytes))
(read-sequence bytes stream)
- (sb-ext:octets-to-string bytes)))
-
+ (if allow-wide
+ (sb-ext:octets-to-string bytes)
+ (map 'string #'code-char bytes))))
;;; Support for encrypted password transmission
(postgresql-connection-password connection))
(force-output socket))
(4
- (let ((salt (read-socket-sequence socket 2)))
+ (let ((salt (read-socket-sequence socket 2 nil)))
(send-encrypted-password-message
socket
(crypt-password
(postgresql-connection-password connection) salt)))
(force-output socket))
(5
- (let ((salt (read-socket-sequence socket 4)))
+ (let ((salt (read-socket-sequence socket 4 nil)))
(let* ((pwd2 (encrypt-md5 (postgresql-connection-password connection)
(postgresql-connection-user connection)))
(pwd (encrypt-md5 pwd2 salt)))
+cl-sql (3.8.2-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Fri, 23 Mar 2007 07:37:15 -0600
+
cl-sql (3.8.1-1) unstable; urgency=low
* New upstream