* db-sqlite/sqlite-api-{uffi,sql}.lisp: Multiple UFFI fixes,
now passes tests on all support UFFI platforms.
* db-postgresql-socket/postgresql-socket-api.list: Ported to
- SBCL
+ SBCL and OpenMCL
* multiple: Finish renaming of :types keyword to :result-types for
greater CommonSQL compatibility, including documentation
* sql/basic-cmds.lisp: Remove obsolete file
individuals;
* implement remaining functions for CLSQL AODBC backend;
* port Oracle and ODBC backend to UFFI.
-* port postgresql-socket backend to OpenMCL
COMMONSQL SPEC
:remote-port port :remote-host host
:connect :active :nodelay t))))))
+#+openmcl
+(defun open-postgresql-socket-stream (host port)
+ (etypecase host
+ (pathname
+ (let ((path (namestring
+ (make-pathname :name ".s.PGSQL" :type (princ-to-string port)
+ :defaults host))))
+ (ccl:make-socket :type :stream :address-family :file
+ :connect :active
+ :remote-filename path :local-filename path)))
+ (string
+ (socket:with-pending-connect
+ (mp:with-timeout (*postgresql-server-socket-timeout* (error "connect failed"))
+ (ccl:make-socket :type :stream :address-family :internet
+ :remote-port port :remote-host host
+ :connect :active :nodelay t))))))
+
#+lispworks
(defun open-postgresql-socket-stream (host port)
(etypecase host