r9314: 11 May 2004 Kevin Rosenberg (kevin@rosenberg.net)

[clsql.git] / sql / classes.lisp

diff --git a/sql/classes.lisp b/sql/classes.lisp
index e7bc74e2934fd311b7808f083571ad21db8cb077..24bd71a1dd2be6f3da2aeb478f45bffeff66b814 100644 (file)
--- a/sql/classes.lisp
+++ b/sql/classes.lisp
@@ -515,7 +515,9 @@
 (defvar *select-arguments*
   '(:all :database :distinct :flatp :from :group-by :having :order-by
     :order-by-descending :set-operation :where :offset :limit
-    :inner-join :on))
+    :inner-join :on
+    ;; below keywords are not a SQL argument, but these keywords may terminate select
+    :caching :refresh))
 
 (defun query-arg-p (sym)
   (member sym *select-arguments*))