projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8822: now passes some of the regression tests
[clsql.git]
/
usql
/
objects.lisp
diff --git
a/usql/objects.lisp
b/usql/objects.lisp
index 757848c95fab9465ef7aff332e0db40dd944b61c..0478c8f3298b23db3216bffb443fbcdc072f2a65 100644
(file)
--- a/
usql/objects.lisp
+++ b/
usql/objects.lisp
@@
-43,7
+43,8
@@
(call-next-method))
(defmethod (setf slot-value-using-class) (new-value (class standard-db-class)
(call-next-method))
(defmethod (setf slot-value-using-class) (new-value (class standard-db-class)
- instance slot)
+ instance slot)
+ (declare (ignore new-value instance slot))
(call-next-method))
;; JMM - Can't go around trying to slot-access a symbol! Guess in
(call-next-method))
;; JMM - Can't go around trying to slot-access a symbol! Guess in
@@
-770,7
+771,6
@@
DATABASE-NULL-VALUE on the type of the slot."))
"VARCHAR(255)")))
(defmethod database-get-type-specifier ((type (eql 'string)) args database)
"VARCHAR(255)")))
(defmethod database-get-type-specifier ((type (eql 'string)) args database)
- (declare (ignore database))
(if args
(format nil "VARCHAR(~A)" (car args))
(if (member (database-type database) '(:postgresql :postgresql-socket))
(if args
(format nil "VARCHAR(~A)" (car args))
(if (member (database-type database) '(:postgresql :postgresql-socket))