X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Ftable.lisp;h=ad8c55a5ef699e363015f2e4d928fbdf4f214fb8;hb=b43e20a168dae4ae9d176ebc0fbf18ea6e4517dc;hp=d2a615b8d49c8c46f853255b2b10f8ea5f02c44b;hpb=f716bb1161cf9e89a96945c4a444244f9d303691;p=clsql.git

diff --git a/sql/table.lisp b/sql/table.lisp
index d2a615b..ad8c55a 100644
--- a/sql/table.lisp
+++ b/sql/table.lisp
@@ -15,7 +15,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
-(in-package #:clsql-sys)
+(in-package #:clsql)
 
 
 ;; Utilities
@@ -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))