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:   (terpri)
    (finish-output))
  
  (defun run-server (&aux *functions* (*package* (find-package :chillax-server))
                     (black-hole (make-broadcast-stream))
                     (*error-output* black-hole)
                     (*debug-io* black-hole)
  
negative.code: (defpackage #:chillax-server
    (:use :cl)
    (:export :mkhash :emit))
  (defpackage #:chillax-server-user
    (:use :cl :chillax-server))
  (in-package :chillax-server)
  
  (defmacro with-user-package (&body body)
    `(let ((*package* (find-package :chillax-server-user)))
       ,@body))
  
  (defmacro fun (&body body)
    "This macro puts the FUN back in FUNCTION."
    `(lambda (&optional _) (declare (ignorable _)) ,@body))
  
  (defun mkhash (&rest keys &aux (table (make-hash-table :test #'equal)))
    (loop for (key val) on keys by #'cddr do (setf (gethash key table) val)
  