projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
803a195
)
ignore some unused variables, two less style warnings
author
Ryan Davis
<ryan@acceleration.net>
Thu, 13 Sep 2012 17:27:13 +0000
(13:27 -0400)
committer
Nathan Bird
<nathan@acceleration.net>
Tue, 4 Dec 2012 21:14:29 +0000
(16:14 -0500)
sql/metaclasses.lisp
patch
|
blob
|
history
diff --git
a/sql/metaclasses.lisp
b/sql/metaclasses.lisp
index c3c81bb0aeffa3be4398a3b4fbb4c5eb36c9df22..ddaee4f0dc1da84bd7276c1e0f7e17ecbdcbb0f9 100644
(file)
--- 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"
&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)
(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))
(database-identifier
(if (slot-boundp name 'column)
(delistify-dsd (view-class-slot-column name))