projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10914: rebuild for debian changes
[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..94d33f1d4c093b3ddf50cdfa3f12f1620f0a8489 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)))
(optimize (speed 3) (safety 0)))
#-sb-unicode
(let ((result (make-string length)))
- (dotimes (i
(length string)
result)
+ (dotimes (i
length
result)
(declare (fixnum i))
(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))
#+sb-unicode
(let ((bytes (make-array length :element-type '(unsigned-byte 8))))
(declare (type (simple-array (unsigned-byte 8) (*)) bytes))
@@
-334,10
+334,14
@@
socket interface"
(etypecase host
(pathname
;; Directory to unix-domain socket
(etypecase host
(pathname
;; Directory to unix-domain socket
- (sb-bsd-sockets:socket-connect
- (namestring
- (make-pathname :name ".s.PGSQL" :type (princ-to-string port)
- :defaults host))))
+ (let ((sock (make-instance 'sb-bsd-sockets:local-socket
+ :type :stream)))
+ (sb-bsd-sockets:socket-connect
+ sock
+ (namestring
+ (make-pathname :name ".s.PGSQL" :type (princ-to-string port)
+ :defaults host)))
+ sock))
(string
(let ((sock (make-instance 'sb-bsd-sockets:inet-socket
:type :stream
(string
(let ((sock (make-instance 'sb-bsd-sockets:inet-socket
:type :stream