:|| is a valid symbol in CL, its name is an empty string, "", and it would be much more pleasant to use it for concatenation instead of :\|\|.
The attached patch adds :|| operator.
diff --git a/s-sql/s-sql.lisp b/s-sql/s-sql.lisp index 863b6d6..11f8cdd 100644 --- a/s-sql/s-sql.lisp +++ b/s-sql/s-sql.lisp @@ -439,6 +439,9 @@ with a given arity." ;; PostGIS operators (register-sql-operators :2+-ary :&& :&< :|&<\|| :&> :<< :|<<\|| :>> :@ :|\|&>| :|\|>>| :~=) +(def-sql-op :|| (&rest args) + (list (sql-compile `(:\|\| ,@args)))) + (def-sql-op :desc (arg) `(,@(sql-expand arg) " DESC"))
-- With best regards, Stas.
_______________________________________________ postmodern-devel mailing list postmodern-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/postmodern-devel
