X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=inline;f=sql%2Foperations.lisp;h=faa22b5af7a8788aea28ef66d14b7b5619edf734;hb=HEAD;hp=37d751e0f90abc09189de627df483e1aab454119;hpb=4fa0aba28de88bf4db5e979152d90e01f8a365f2;p=clsql.git

diff --git a/sql/operations.lisp b/sql/operations.lisp
index 37d751e..faa22b5 100644
--- a/sql/operations.lisp
+++ b/sql/operations.lisp
@@ -46,6 +46,9 @@
   (make-instance 'sql-function-exp
                  :name 'all :args rest))
 
+(defsql sql-e-string (:symbol "E") (&rest rest)
+  (make-instance 'sql-escape-string-exp :string (first rest)))
+
 (defsql sql-not (:symbol "not") (&rest rest)
   (make-instance 'sql-value-exp
                  :modifier 'not :components rest))