anchor.diff:      (with-point ((start point)
                    (end point))
         (scan-lists end 1 0)
  +      (run-hooks (variable-value 'before-eval-functions) start end)
         (let ((string (points-to-string start end)))
           (if (ppcre:scan "^\\(defvar(?:\\s|$)" string)
               (re-eval-defvar string)
  
positive.code:   (with-point ((start (current-point))
                 (end (current-point)))
      (form-offset start -1)
      (let ((string (points-to-string start end)))
        (if p
            (eval-print string (- (window-width (current-window)) 2))
  
negative.code: 
  (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")
  