X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftable.lisp;h=3820c19bd61d623a02ee50aeae155fe605c15789;hp=d2a615b8d49c8c46f853255b2b10f8ea5f02c44b;hb=270e7b5d19d51c1a19d30b54996d89576c63d358;hpb=7cdc9aa48baa3c52923d61da6fa632eb47ac0b5d

diff --git a/sql/table.lisp b/sql/table.lisp
index d2a615b..3820c19 100644
--- 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)
-		     (setf (gethash k attribute-cache) (list t (second value))))))
+		     (setf (gethash k attribute-cache) (list t (second 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)
-		       (setf (gethash k attribute-cache) (list t (second value)))))))
+		       (setf (gethash k attribute-cache) (list t (second v)))))))
 		attribute-cache))))
   (values))