From 2edf7f68a1dc681db575cda999283cac7e290a77 Mon Sep 17 00:00:00 2001 From: Ryan Davis Date: Thu, 13 Sep 2012 13:27:13 -0400 Subject: [PATCH 1/1] ignore some unused variables, two less style warnings --- sql/metaclasses.lisp | 2 ++ 1 file changed, 2 insertions(+) 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)) -- 2.34.1