projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merging long-long vs unsigned-long-long fixes and test cases
[clsql.git]
/
db-mysql
/
mysql-sql.lisp
diff --git
a/db-mysql/mysql-sql.lisp
b/db-mysql/mysql-sql.lisp
index 857bcd5ec985c78dc863bc8cd50d5432d394ee79..eb965cada4f7a3033dfe5213a90ba46684995899 100644
(file)
--- a/
db-mysql/mysql-sql.lisp
+++ b/
db-mysql/mysql-sql.lisp
@@
-159,9
+159,9
@@
(:boolean-ptr
(uffi:with-foreign-object (fo :byte)
(setf (uffi:deref-pointer fo :byte)
(:boolean-ptr
(uffi:with-foreign-object (fo :byte)
(setf (uffi:deref-pointer fo :byte)
- (
if (or (zerop value) (null value))
- 0
-
1
))
+ (
case value
+ ((nil 0) 0)
+
(t 1)
))
(mysql-options mysql-ptr option-code fo)))))))))))
(defmethod database-connect (connection-spec (database-type (eql :mysql)))
(mysql-options mysql-ptr option-code fo)))))))))))
(defmethod database-connect (connection-spec (database-type (eql :mysql)))
@@
-404,8
+404,10
@@
(unless (find col results :test #'string-equal)
(push col results)))))
(unless (find col results :test #'string-equal)
(push col results)))))
-(defmethod database-list-attributes ((table string) (database mysql-database)
- &key (owner nil))
+(defmethod database-list-attributes ((table clsql-sys::%database-identifier)
+ (database mysql-database)
+ &key (owner nil)
+ &aux (table (unescaped-database-identifier table)))
(declare (ignore owner))
(mapcar #'car
(database-query
(declare (ignore owner))
(mapcar #'car
(database-query
@@
-413,9
+415,12
@@
table database))
database nil nil)))
table database))
database nil nil)))
-(defmethod database-attribute-type (attribute (table string)
+(defmethod database-attribute-type ((attribute clsql-sys::%database-identifier)
+ (table clsql-sys::%database-identifier)
(database mysql-database)
(database mysql-database)
- &key (owner nil))
+ &key (owner nil)
+ &aux (table (unescaped-database-identifier table))
+ (attribute (unescaped-database-identifier attribute)))
(declare (ignore owner))
(let ((row (car (database-query
(format nil
(declare (ignore owner))
(let ((row (car (database-query
(format nil