anchor.diff:          (error 'function-compilation-error :string string)
           function)))
   
  +(defvar *map-results*)
   (defun emit (k v)
     (when (boundp *map-results*)
       (push (list k v) *map-results*)))
  
positive.code:   (finish-output))
  
  (defun add-fun (string)
    (push (compile-view-function string) *functions*)
    (respond t))
  
  (defun reset (&optional config)
  
negative.code:   (terpri)
    (finish-output))
  
  (defvar *functions*)
  (defun run-server (&aux *functions*
                     (black-hole (make-broadcast-stream))
                     (*error-output* black-hole)
                     (*debug-io* black-hole)
  