X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql-socket%2Fpostgresql-socket-api.lisp;h=66b2912a9f84291e8124e612850ac7e88d972804;hp=bacaa98932caee2366ef99f845c8f866df9eb2c8;hb=36509b8d390e94b2b0f8e681c09d5e89452978d8;hpb=250cbd248eea143904d721a367fe3b0304800f0f

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