projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9190: few bug fixes
[clsql.git]
/
db-postgresql
/
postgresql-sql.lisp
diff --git
a/db-postgresql/postgresql-sql.lisp
b/db-postgresql/postgresql-sql.lisp
index 156e11e08c26abebb0c8863321b041bb9abff2d9..47df535d193748a626b14344c7157a18cefc4f6a 100644
(file)
--- a/
db-postgresql/postgresql-sql.lisp
+++ b/
db-postgresql/postgresql-sql.lisp
@@
-192,7
+192,7
@@
(let ((names '()))
(dotimes (i num-fields (nreverse names))
(declare (fixnum i))
(let ((names '()))
(dotimes (i num-fields (nreverse names))
(declare (fixnum i))
- (push (uffi:convert-from-
foreign-
string (PQfname result i)) names))))
+ (push (uffi:convert-from-
c
string (PQfname result i)) names))))
(defmethod database-execute-command (sql-expression
(database postgresql-database))
(defmethod database-execute-command (sql-expression
(database postgresql-database))