Adding to utils make-weak-hash-table for use in caches.

[clsql.git] / sql / expressions.lisp

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index bee6faffafa22dfc543255d3892890a2ce4736cd..4a6eb6384e6642469f320ce9f4efaa757582cdf3 100644 (file)
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -139,11 +139,9 @@
 
 
 (defvar *output-hash*
-  #+sbcl
-  (make-hash-table :test #'equal :synchronized T :weakness :key-and-value)
-  #-sbcl
-  (make-hash-table :test #'equal )
-  "For caching generated SQL strings.")
+      (make-weak-hash-table :test #'equal)
+  "For caching generated SQL strings, set to NIL to disable."
+  )
 
 (defmethod output-sql :around ((sql t) database)
   (if (null *output-hash*)