anchor.diff:  			      (not (string-at-cursor? direction mirror)))
   		      do (decf tally)
   		    until (and (char-at-cursor? direction mirror other-paren :ls ls) (= 0 tally)))
  -		 (unless (= :left direction) (go-char direction mirror)))
  +		 (go-char direction mirror))
   		(t 
   		 (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 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))
  
positive.code: 		   (:left #'at-beginning?)
  		   (:right #'at-end?))))
  	(loop do (go-char direction mirror) until (til mirror ls)
  	   while (fn (char-at-cursor direction mirror :ls ls)))))
  
      (defun skip-to (direction mirror chars &key (ls (lines (mirror-contents mirror))))
        (let ((s (new (-set chars))))
  
negative.code:       (chain mirror (get-value)))
  
      (defun get-cur (direction mirror)
        (with-slots (line ch) (chain mirror (get-cursor))
  	(create :line line :ch (if (= direction :left) (- ch 1) ch))))
  
      (defun token-type-at-cursor (direction mirror)
        (with-slots (line ch) (get-cur direction mirror)
  	(chain mirror (get-token-type-at (create :line line :ch (+ 1 ch))))))
      (defun token-type-at-cursor? (direction mirror type)
        (= type (token-type-at-cursor direction mirror)))
      (defun string-at-cursor? (direction mirror)
  