r9314: 11 May 2004 Kevin Rosenberg (kevin@rosenberg.net)

[clsql.git] / sql / table.lisp

diff --git a/sql/table.lisp b/sql/table.lisp
index d2a615b8d49c8c46f853255b2b10f8ea5f02c44b..ad8c55a5ef699e363015f2e4d928fbdf4f214fb8 100644 (file)
--- 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))