(unless (record-caches database)
(setf (record-caches database)
(make-hash-table :test 'equal
(unless (record-caches database)
(setf (record-caches database)
(make-hash-table :test 'equal
#+lispworks :weak-kind #+lispworks :value)))
(setf (gethash (compute-records-cache-key targets qualifiers)
(record-caches database)) results)
#+lispworks :weak-kind #+lispworks :value)))
(setf (gethash (compute-records-cache-key targets qualifiers)
(record-caches database)) results)