anchor.diff:  		     (case direction
   		       (:left "goCharLeft")
   		       (:right "goCharRight")))))
  +
  +    (defun go-line (direction mirror)
  +      (chain mirror (exec-command
  +		     (case direction
  +		       (:up "goLineUp")
  +		       (:down "goLineDown")))))
       
       (defun char-at-cursor (direction mirror &key (ls (lines (mirror-contents mirror))))
         (with-slots (line ch) (get-cur direction mirror)
  
positive.code: 		 (skip-to direction mirror (+ " " other-paren) :ls ls))))))
  
      (defun forward-sexp (mirror)
        (go-sexp :right mirror))
      (defun backward-sexp (mirror) 
        (go-sexp :left mirror))
  
      (defun kill-forward-sexp (mirror))
      (defun kill-backward-sexp (mirror))
  
negative.code: 
      ;;;;;;;;;; basic s-exp navigation
      ;;;;;;;;;;;;;;;
      (defun go-block (direction mirror)
        (let ((til (case direction
        		   (:up #'at-beginning?)
        		   (:down #'at-end?)))
        	    (ls (lines (mirror-contents mirror))))
  	(when (at-empty-line? mirror :ls ls) (go-line direction mirror))
        	(loop until (or (til mirror :ls ls) (at-empty-line? mirror :ls ls))
        	   do (go-line direction mirror))))
      
      (defun go-sexp (direction mirror)
        (destructuring-bind (paren til)
  	  (case direction
  