X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Foodml.lisp;h=d38d3b94ded9ad1b3fb03c3944173bc0540115e5;hb=30186614582039bdc3d3f86bc5165ef300c5d3e0;hp=6397fa88dd82a73838fb5f900220243bf5a8715f;hpb=91fd65e6ca4e4d7a9c1e0f8b6d860f55b2107437;p=clsql.git

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 6397fa8..d38d3b9 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -1344,11 +1344,8 @@ as elements of a list."
 (defun (setf records-cache-results) (results targets qualifiers database)
   (unless (record-caches database)
     (setf (record-caches database)
-          (make-hash-table :test 'equal
-                           #+allegro   :values    #+allegro :weak
-                           #+clisp     :weak      #+clisp :value
-                           #+lispworks :weak-kind #+lispworks :value)))
-  (setf (gethash (compute-records-cache-key targets qualifiers)
+          (make-weak-hash-table :test 'equal)))
+  (setf (gethash (compute-records-cache-key (copy-list targets) qualifiers)
                  (record-caches database)) results)
   results)