+(defsql sql-~* (:symbol "~*") (&rest rest)
+ "This is the postgres regex match operator"
+ (make-instance 'sql-relational-exp
+ :operator '~* :sub-expressions rest))
+
+(defsql |sql-~* ANY| (:symbol "~* ANY") (&rest rest)
+ "This is the postgres regex match any in an array"
+ (make-instance 'sql-relational-exp
+ :operator '|~* ANY| :sub-expressions rest))
+
+(defsql sql-array (:symbol "array") (&rest rest)
+ "This is the postgres regex match any in an array"
+ (make-instance 'sql-array-exp
+ :operator 'array :sub-expressions rest))
+