r9797: * sql/oodml.lisp: on Lispworks, use weak valued hash tables for

[clsql.git] / sql / oodml.lisp

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 78fd88648db8ca12cd081605d7d7bcf84d3c5e6c..174b35a95f375d43465f20082c57c6ae1d87ba92 100644 (file)
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -1097,7 +1097,8 @@ as elements of a list."
   (unless (record-caches database)
     (setf (record-caches database)
          (make-hash-table :test 'equal
-                          #+allegro :values #+allegro :weak)))
+                          #+allegro :values #+allegro :weak
+                           #+lispworks :weak-kind #+lispworks :value)))
   (setf (gethash (compute-records-cache-key targets qualifiers)
                 (record-caches database)) results)
   results)