projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9952: * examples/clsql-tutorial.lisp: added missing initarg for the COMPANYID
[clsql.git]
/
db-postgresql-socket
/
postgresql-socket-sql.lisp
diff --git
a/db-postgresql-socket/postgresql-socket-sql.lisp
b/db-postgresql-socket/postgresql-socket-sql.lisp
index f4c1250181ccce5f569e08d83a4f7fc95bfe56e3..46e82ce928c64140be4ae54cd8e846eb74beed62 100644
(file)
--- a/
db-postgresql-socket/postgresql-socket-sql.lisp
+++ b/
db-postgresql-socket/postgresql-socket-sql.lisp
@@
-182,7
+182,7
@@
doesn't depend on UFFI."
(handler-case
(handler-bind ((postgresql-warning
(lambda (c)
(handler-case
(handler-bind ((postgresql-warning
(lambda (c)
- (warn '
clsql-simple
-warning
+ (warn '
sql
-warning
:format-control "~A"
:format-arguments
(list (princ-to-string c))))))
:format-control "~A"
:format-arguments
(list (princ-to-string c))))))
@@
-357,7
+357,7
@@
doesn't depend on UFFI."
(defmethod db-type-default-case ((db-type (eql :postgresql-socket)))
:lower)
(defmethod db-type-default-case ((db-type (eql :postgresql-socket)))
:lower)
-(defmethod d
b
-underlying-type ((database postgresql-socket-database))
+(defmethod d
atabase
-underlying-type ((database postgresql-socket-database))
:postgresql)
(when (clsql-sys:database-type-library-loaded :postgresql-socket)
:postgresql)
(when (clsql-sys:database-type-library-loaded :postgresql-socket)