X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=usql%2Fobjects.lisp;h=0478c8f3298b23db3216bffb443fbcdc072f2a65;hp=757848c95fab9465ef7aff332e0db40dd944b61c;hb=3da1a0ba2b4ded66dca0bec9c4e23457eb7ff079;hpb=ce0e343835a040406678dff74a62d1b0cb56f317

diff --git a/usql/objects.lisp b/usql/objects.lisp
index 757848c..0478c8f 100644
--- 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)
-                                                    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
@@ -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)
-  (declare (ignore database))
   (if args
       (format nil "VARCHAR(~A)" (car args))
       (if (member (database-type database) '(:postgresql :postgresql-socket))