(in-package "KPML")

;;;  these macros hack some spatial relations so that SPLs can be
;;; made with something a little (very little) more resemblance
;;; to the GUM3 treatment but with the old UM/MUM treatment.

(defspl-macro :leftwards 
  ((? :spatial-locating 
      (r /  one-or-two-d-location :lex left :event-q object :part-of ?))))

(defspl-macro :rightwards 
  ((? :spatial-locating 
      (r /  one-or-two-d-location :lex right :event-q object :part-of ?))))