From 36509b8d390e94b2b0f8e681c09d5e89452978d8 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 28 Apr 2005 14:35:56 +0000 Subject: [PATCH] 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. --- ChangeLog | 4 ++++ db-postgresql-socket/postgresql-socket-api.lisp | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) 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)) -- 2.34.1