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)
-                                                    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))