projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Made identifiers specified as strings be treated as the canonical name
[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 64c424043ddd5720f0b0152a478401980ca0cbfb..576bd80042670ff0c50a054fa620b374d3c3ea8f 100644
(file)
--- a/
db-postgresql-socket/postgresql-socket-api.lisp
+++ b/
db-postgresql-socket/postgresql-socket-api.lisp
@@
-19,6
+19,8
@@
(in-package #:postgresql-socket)
(in-package #:postgresql-socket)
+(defparameter +postgres-external-format+ :utf8)
+
(uffi:def-enum pgsql-ftype
((:bytea 17)
(:int2 21)
(uffi:def-enum pgsql-ftype
((:bytea 17)
(:int2 21)
@@
-113,7
+115,10
@@
socket interface"
do (write-byte code socket)
finally (write-byte 0 socket))
#+sb-unicode
do (write-byte code socket)
finally (write-byte 0 socket))
#+sb-unicode
- (write-sequence (sb-ext:string-to-octets value :external-format :utf8 :null-terminate t) socket)
+ (write-sequence (sb-ext:string-to-octets value
+ :external-format +postgres-external-format+
+ :null-terminate t)
+ socket)
nil)
(defun send-socket-value-limstring (socket value limit)
nil)
(defun send-socket-value-limstring (socket value limit)
@@
-167,7
+172,8
@@
socket interface"
(loop for code = (read-byte socket)
until (zerop code)
do (vector-push-extend code bytes))
(loop for code = (read-byte socket)
until (zerop code)
do (vector-push-extend code bytes))
- (sb-ext:octets-to-string bytes)))
+ (sb-ext:octets-to-string bytes
+ :external-format +postgres-external-format+)))
(defmacro define-message-sender (name (&rest args) &rest clauses)
(defmacro define-message-sender (name (&rest args) &rest clauses)
@@
-226,7
+232,7
@@
socket interface"
(declare (type (simple-array (unsigned-byte 8) (*)) bytes))
(read-sequence bytes stream)
(if allow-wide
(declare (type (simple-array (unsigned-byte 8) (*)) bytes))
(read-sequence bytes stream)
(if allow-wide
- (sb-ext:octets-to-string bytes)
+ (sb-ext:octets-to-string bytes
:external-format +postgres-external-format+
)
(map 'string #'code-char bytes))))
;;; Support for encrypted password transmission
(map 'string #'code-char bytes))))
;;; Support for encrypted password transmission