X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ffddl.lisp;fp=sql%2Ffddl.lisp;h=c4fc1955a3e3a66c7ec76a98bde7db61a1978aed;hp=39a2a0c44f4a038db77409a07adb1eeaed7c7fd0;hb=4b94edaad0182478a36da0d07282f100b9799804;hpb=0b35694f3659e5ee739ea72ce74d798c3f0ddb73

diff --git a/sql/fddl.lisp b/sql/fddl.lisp
index 39a2a0c..c4fc195 100644
--- a/sql/fddl.lisp
+++ b/sql/fddl.lisp
@@ -345,7 +345,8 @@ the fourth is the scale of the attribute and the fifth is 1 if
 the attribute accepts null values and otherwise 0."
   (with-slots (attribute-cache) database
     (let ((table-ident (database-identifier table database)))
-      (multiple-value-bind (val found) (gethash table-ident attribute-cache)
+      (multiple-value-bind (val found)
+          (gethash table attribute-cache)
         (if (and found (second val))
             (second val)
             (let ((types (mapcar #'(lambda (attribute)
@@ -361,10 +362,10 @@ the attribute accepts null values and otherwise 0."
                                                   :owner owner))))
               (cond
                 ((and (not found) (eq t *cache-table-queries-default*))
-                 (setf (gethash table-ident attribute-cache)
+                 (setf (gethash table attribute-cache)
                        (list :unspecified types)))
                 ((and found (eq t (first val))
-                      (setf (gethash table-ident attribute-cache)
+                      (setf (gethash table attribute-cache)
                             (list t types)))))
               types))))))