anchor.diff:               finally
                (return-from ,outer t)))))
   
  +(defun sexp-at-char (dir)
  +  (if (plusp dir)
  +    (following-char)
  +    (preceding-char)))
  +
   (defun scan-lists (point count depth)
     (point-set point)
     (dotimes (_ (abs count) t)
  
positive.code:       (point-set point)
        (return nil))))
  
  (macrolet ((def (name &body body)
                  `(defun ,name (point dir)
                     (point-set point)
                     (if (do-scan outer
                                  dir
  
negative.code:                  (string-quote
                    (next-char dir)
                    (return-from outer
                                 (and (scan-string (point) dir (sexp-at-char (- dir)))
                                      (next-char dir))))
                   (space
                    nil)
  