;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(in-package #:clsql-sys)
+(in-package #:clsql)
;; Utilities
((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)
((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))