anchor.diff:              (cmd-op cmd)
               (cmd-args cmd))
       (yason:encode (cmd-options cmd) s)))
  -            
  +
   (defmethod yason:encode ((cmd reql-cmd) &optional (stream *standard-output*))
     (yason:with-output (stream)
       (yason:with-array ()
  
positive.code: (defcommand (40 concatmap) (sequence function))
  (defcommand (41 order-by) (sequence fields &key index) :arrays (fields))
  (defcommand (41 order-by :defun nil) (sequence &rest fields))
  (defcommand (42 distinct) (sequence))
  (defcommand (43 count) (sequence))
  (defcommand (86 is-empty) (sequence))
  (defcommand (44 union) (&rest sequences))
  
negative.code: (defcommand (167 fill) (geo))
  (defcommand (168 get-nearest) (table geo &key index max-results max-dist geo-system unit))
  (defcommand (171 polygon-sub) (geo1 geo2))
  