X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Foodml.lisp;h=174b35a95f375d43465f20082c57c6ae1d87ba92;hb=8fa38a6c189dc8b42611c4ee3c31facd5fe00635;hp=78fd88648db8ca12cd081605d7d7bcf84d3c5e6c;hpb=d80d8b58af5e3074bca3e8830a04efb2578c2f11;p=clsql.git

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 78fd886..174b35a 100644
--- 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)