X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=ddaee4f0dc1da84bd7276c1e0f7e17ecbdcbb0f9;hp=c3c81bb0aeffa3be4398a3b4fbb4c5eb36c9df22;hb=2edf7f68a1dc681db575cda999283cac7e290a77;hpb=803a1953a42918411b4119b724d7a6e7227da83e

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index c3c81bb..ddaee4f 100644
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -570,10 +570,12 @@ implementations."
                                 &optional database find-class-p)
   "the majority of this function is in expressions.lisp
    this is here to make loading be less painful (try-recompiles) in SBCL"
+  (declare (ignore find-class-p))
   (database-identifier (view-table name) database))
 
 (defmethod database-identifier ((name view-class-slot-definition-mixin)
                                 &optional database find-class-p)
+  (declare (ignore find-class-p))
   (database-identifier
    (if (slot-boundp name 'column)
        (delistify-dsd (view-class-slot-column name))