From e8c642a53867d09c91d152380fd2ad8d06a6d58a Mon Sep 17 00:00:00 2001
From: Andrew Kane <andrew@ankane.org>
Date: Mon, 4 Dec 2023 20:15:22 -0800
Subject: [PATCH] Add cube operators

---
 s-sql/s-sql.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/s-sql/s-sql.lisp b/s-sql/s-sql.lisp
index e6da87a..c130b50 100644
--- a/s-sql/s-sql.lisp
+++ b/s-sql/s-sql.lisp
@@ -579,6 +579,9 @@ string."
 ;; hstore operators
 (register-sql-operators :2+-ary :-> :=> :? :?& :?\| :|<@| :|#=| :unary :%% :%#)
 
+;; cube operators
+(register-sql-operators :2+-ary :&& :|@>| :|<@| :-> :~> :<-> :<#> :<=>)
+
 ;;; sql-op :+, :*, :%, :&, :|, :| |, :and, :or, :=, :/, :!=, :<, :>, :<=, :>=,
 ;;;  :^, :union, :union-all,
 ;;;  :intersect, :intersect-all, :except, :except-all (&rest args)