From: Kevin M. Rosenberg Date: Thu, 28 Apr 2005 14:35:56 +0000 (+0000) Subject: r10490: 27 Apr 2005 Kevin Rosenberg X-Git-Tag: v3.8.6~158 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=36509b8d390e94b2b0f8e681c09d5e89452978d8 r10490: 27 Apr 2005 Kevin Rosenberg * db-postgresql-socket/postgresql-api.lisp: Commit patch from Tim Howe to fix read-socket-sequence on non-sb-unicode sbcl. --- diff --git a/ChangeLog b/ChangeLog index a5cc8ce..42f7907 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +27 Apr 2005 Kevin Rosenberg + * db-postgresql-socket/postgresql-api.lisp: Commit patch from Tim Howe + to fix read-socket-sequence on non-sb-unicode sbcl. + 26 Apr 2005 Kevin Rosenberg * Version 3.1.12 * sql/time.lisp: Commit patch from Daniel Lowe which adds support diff --git a/db-postgresql-socket/postgresql-socket-api.lisp b/db-postgresql-socket/postgresql-socket-api.lisp index bacaa98..66b2912 100644 --- a/db-postgresql-socket/postgresql-socket-api.lisp +++ b/db-postgresql-socket/postgresql-socket-api.lisp @@ -219,9 +219,9 @@ socket interface" (optimize (speed 3) (safety 0))) #-sb-unicode (let ((result (make-string length))) - (dotimes (i (length string) result) + (dotimes (i length result) (declare (fixnum i)) - (setf (char string i) (code-char (read-byte stream))))) + (setf (char result i) (code-char (read-byte stream))))) #+sb-unicode (let ((bytes (make-array length :element-type '(unsigned-byte 8)))) (declare (type (simple-array (unsigned-byte 8) (*)) bytes))