Fix for non-sb-unicode read-socket-sequence
Tim Howe <tim.howe-aml21o3faLdO96OpLraBrlaTQe2KTcn/@public.gmane.org>
| Newsgroups | gmane.lisp.clsql.devel |
|---|---|
| Message-ID | <[email protected]> |
It looks like there are several typos in READ-SOCKET-SEQUENCE, perhaps from when Unicode support was added. This patch gets everything working on my system. -- Tim Howe Software Engineer Celebrity Resorts _______________________________________________ CLSQL-Devel mailing list [email protected] http://lists.b9.com/mailman/listinfo/clsql-devel
read-socket-sequence.diff
(text/x-patch, 644 B)
--- /tmp/clsql-3.1.11/db-postgresql-socket/postgresql-socket-api.lisp Wed Apr 13 15:00:40 2005
+++ postgresql-socket-api.lisp Wed Apr 27 17:40:46 2005
@@ -219,9 +219,9 @@
(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))