anchor.diff:  
   (define-editor-variable load-file-functions '())
   (define-editor-variable before-compile-functions '())
  +(define-editor-variable before-eval-functions '())
   
   (define-attribute compilation-region-highlight
     (t :background "orange"))
  +
  +(define-attribute evaluation-region-highlight
  +  (t :background "green"))
   
   (defparameter *default-port* 4005)
   (defparameter *localhost* "127.0.0.1")
  
positive.code:     (with-point ((start point)
                   (end point))
        (scan-lists end 1 0)
        (let ((string (points-to-string start end)))
          (if (ppcre:scan "^\\(defvar(?:\\s|$)" string)
              (re-eval-defvar string)
  
negative.code:   (with-point ((start (current-point))
                 (end (current-point)))
      (form-offset start -1)
      (run-hooks (variable-value 'before-eval-functions) start end)
      (let ((string (points-to-string start end)))
        (if p
            (self-eval-print string (- (window-width (current-window)) 2))
  