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

[clsql.git] / db-postgresql-socket / postgresql-socket-api.lisp

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))