* db-postgresql-socket/postgresql-api.lisp: Commit patch from Tim Howe
to fix read-socket-sequence on non-sb-unicode sbcl.
+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
(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))