added postgres regex match operator

[clsql.git] / sql / operations.lisp

diff --git a/sql/operations.lisp b/sql/operations.lisp
index 3a4638537f3830d5c7a23eb03962e74a257e9c65..dbe3a0b36ed7cb71689c9e654371cdfa5e43518d 100644 (file)
--- a/sql/operations.lisp
+++ b/sql/operations.lisp
@@ -123,6 +123,11 @@
   (make-instance 'sql-relational-exp
                  :operator 'like :sub-expressions rest))
 
+(defsql sql-~* (:symbol "~*") (&rest rest)
+       "This is the postgres regex match operator"
+  (make-instance 'sql-relational-exp
+                 :operator '~* :sub-expressions rest))
+
 (defsql sql-uplike (:symbol "uplike") (&rest rest)
   (make-instance 'sql-upcase-like
                  :sub-expressions rest))