Skip to content
Browse files

Add support for PostGIS operators

  • Loading branch information...
1 parent ce1fd7a commit 0b5e52fa4c0814c0b07ea9994183d0ef4c0e07a1 @marijnh marijnh committed Sep 2, 2011
Showing with 2 additions and 0 deletions.
  1. +2 −0 s-sql/s-sql.lisp
View
2 s-sql/s-sql.lisp
@@ -436,6 +436,8 @@ with a given arity."
(register-sql-operators :2+-ary := :/ :!= :< :> :<= :>= :^ :~* :!~ :!~* :like :ilike
:intersect (:intersect-all "intersect all")
:except (:except-all "except all"))
+;; PostGIS operators
+(register-sql-operators :2+-ary :&& :&< :|&<\|| :&> :<< :|<<\|| :>> :@ :|\|&>| :|\|>>| :~=)
(def-sql-op :desc (arg)
`(,@(sql-expand arg) " DESC"))

0 comments on commit 0b5e52f

Please sign in to comment.
Something went wrong with that request. Please try again.