anchor.diff:    (terpri)
     (finish-output))
   
  -(defun run-server (&aux *functions* (*package* (find-package :chillax-server))
  +(defvar *functions*)
  +(defun run-server (&aux *functions*
                      (black-hole (make-broadcast-stream))
                      (*error-output* black-hole)
                      (*debug-io* black-hole)
  
positive.code:   (finish-output))
  
  (defun add-fun (string)
    (push (compile-view-function string) *functions*)
    (respond t))
  
  (defun reset (&optional config)
  
negative.code:   (respond t))
  
  (defun call-map-function (function doc &aux *map-results*)
    (with-user-package (funcall function doc)) (or *map-results* '(#())))
  
  (defun map-doc (doc)
    (respond (or (mapcar (fun (call-map-function _ doc)) *functions*) '((#())))))
  