projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9378: * test/test-fdml.lisp: Added FDML/SELECT/34 to test
[clsql.git]
/
sql
/
table.lisp
diff --git
a/sql/table.lisp
b/sql/table.lisp
index d2a615b8d49c8c46f853255b2b10f8ea5f02c44b..3820c19bd61d623a02ee50aeae155fe605c15789 100644
(file)
--- a/
sql/table.lisp
+++ b/
sql/table.lisp
@@
-249,7
+249,7
@@
specifications in table have changed."
((null action)
(setf (gethash k attribute-cache) (list nil nil)))
((eq t action)
((null action)
(setf (gethash k attribute-cache) (list nil nil)))
((eq t action)
- (setf (gethash k attribute-cache) (list t (second v
alue
))))))
+ (setf (gethash k attribute-cache) (list t (second v))))))
attribute-cache))
((eq table :default)
(maphash (lambda (k v)
attribute-cache))
((eq table :default)
(maphash (lambda (k v)
@@
-260,7
+260,7
@@
specifications in table have changed."
((null action)
(setf (gethash k attribute-cache) (list nil nil)))
((eq t action)
((null action)
(setf (gethash k attribute-cache) (list nil nil)))
((eq t action)
- (setf (gethash k attribute-cache) (list t (second v
alue
)))))))
+ (setf (gethash k attribute-cache) (list t (second v)))))))
attribute-cache))))
(values))
attribute-cache))))
(values))