projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added dates/times to the parameter value coersion and pulled this into
[clsql.git]
/
sql
/
metaclasses.lisp
diff --git
a/sql/metaclasses.lisp
b/sql/metaclasses.lisp
index 73c67cb732300a26ae526628be0be36e8be37b76..ddaee4f0dc1da84bd7276c1e0f7e17ecbdcbb0f9 100644
(file)
--- a/
sql/metaclasses.lisp
+++ b/
sql/metaclasses.lisp
@@
-457,7
+457,10
@@
implementations."
(defmethod initialize-instance :after
((obj view-class-direct-slot-definition)
&key &allow-other-keys)
(defmethod initialize-instance :after
((obj view-class-direct-slot-definition)
&key &allow-other-keys)
- (setf (view-class-slot-column obj) (compute-column-name obj)))
+ (setf (view-class-slot-column obj) (compute-column-name obj)
+ (view-class-slot-autoincrement-sequence obj)
+ (dequote
+ (view-class-slot-autoincrement-sequence obj))))
(defmethod compute-effective-slot-definition ((class standard-db-class)
#+kmr-normal-cesd slot-name
(defmethod compute-effective-slot-definition ((class standard-db-class)
#+kmr-normal-cesd slot-name
@@
-567,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))