r10490: 27 Apr 2005 Kevin Rosenberg <kevin@rosenberg.net>

        * 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 a5cc8ce4cef99198f4aafd81fd13ae8fedc705a6..42f7907d23eb95ea2744f139021fa246103cec80 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+27 Apr 2005 Kevin Rosenberg <kevin@rosenberg.net>
+       * 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 <kevin@rosenberg.net>
        * 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 bacaa98932caee2366ef99f845c8f866df9eb2c8..66b2912a9f84291e8124e612850ac7e88d972804 100644 (file)
--- 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))