anchor.diff:    (finish-output))
   
   (defun add-fun (string)
  -  (push (compile-view-function string) *functions*)
  +  (push (with-user-package (compile-view-function string)) *functions*)
     (respond t))
   
   (defun reset (&optional config)
  
positive.code: (defpackage #:chillax-server (:use :cl))
  (in-package :chillax-server)
  
  (defmacro fun (&body body)
    "This macro puts the FUN back in FUNCTION."
    `(lambda (&optional _) (declare (ignorable _)) ,@body))
  
  (defvar *map-results*)
  (defvar *functions*)
  
  (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)
  
negative.code:   (loop for result in keys-and-values
       collect (caar result) into keys
       collect (cadr result) into values
       finally (respond (list t (mapcar (fun (with-user-package
                                               (funcall (compile-view-function _)
                                                        keys values nil)))
                                        fun-strings)))))
  
  (defun rereduce (fun-strings values)
    (respond (list t (mapcar (fun (with-user-package
                                    (funcall (compile-view-function _) nil values t))) fun-strings))))
  
  (defparameter *dispatch*
    `(("reset" . ,#'reset)
  