Automated commit for debian release 6.7.2-1

[clsql.git] / sql / operations.lisp

diff --git a/sql/operations.lisp b/sql/operations.lisp
index 37d751e0f90abc09189de627df483e1aab454119..faa22b5af7a8788aea28ef66d14b7b5619edf734 100644 (file)
--- 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))