X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Foodml.lisp;h=77617e7932a23f0cf0fc9daf9d3247e2d0168c31;hp=c98342ed55ddf3ce220ec7c5d9ddf86ad3c8ff4d;hb=2961f4f122593e9d4875e88e6af159de28c8dd47;hpb=24a4186aa531c3e56953413119e2308bb7c50b6b

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index c98342e..77617e7 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -984,6 +984,10 @@ maximum of MAX-LEN instances updated in each query."
 
 (defmethod instance-refreshed ((instance standard-db-object)))
 
+(defvar *default-caching* t
+  "Controls whether SELECT caches objects by default. The CommonSQL
+specification states caching is on by default.")
+
 (defun select (&rest select-all-args) 
    "Executes a query on DATABASE, which has a default value of
 *DEFAULT-DATABASE*, specified by the SQL expressions supplied
@@ -1042,7 +1046,7 @@ as elements of a list."
        
        (cond
          ((select-objects target-args)
-          (let ((caching (getf qualifier-args :caching t))
+          (let ((caching (getf qualifier-args :caching *default-caching*))
                 (result-types (getf qualifier-args :result-types :auto))
                 (refresh (getf qualifier-args :refresh nil))
                 (database (or (getf qualifier-args :database) *default-database*))