X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fclasses.lisp;h=f33a236769d83df592eedf0835d338858bd8d96a;hp=e7bc74e2934fd311b7808f083571ad21db8cb077;hb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;hpb=71ac7a8d3e5bea99472b07fa2a089c7173abb1f7 diff --git a/sql/classes.lisp b/sql/classes.lisp index e7bc74e..f33a236 100644 --- a/sql/classes.lisp +++ b/sql/classes.lisp @@ -13,7 +13,7 @@ ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* -(in-package #:clsql) +(in-package #:clsql-sys) (defvar +empty-string+ "''") @@ -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*))