| function | since v0.0-927 |  clojure.zip/right | Edit | 
(right loc)Returns the loc of the right sibling of the node at this loc, or nil
(defn right
  [loc]
    (let [[node {l :l  [r & rnext :as rs] :r :as path}] loc]
      (when (and path rs)
        (with-meta [r (assoc path :l (conj l node) :r rnext)] (meta loc)))))