anchor.diff:        (log-message "View function did not compile cleanly: ~A" (remove #\Newline string)))
       (if failurep
           (error 'function-compilation-error :string string)
  -        function)))
  +        (setf (gethash string *function-cache*) function))))
   
   (defvar *map-results*)
   (defun emit (key value)
  
positive.code:   (loop for (key val) on keys-and-values by #'cddr do (setf (gethash key table) val)
       finally (return table)))
  
  (define-condition chillax-server-error () ())
  (define-condition function-compilation-error (chillax-server-error)
    ((function-string :initarg :string :reader function-string)))
  
  (defun compile-view-function (string)
    "Compiles an anonymous function from STRING."
    (multiple-value-bind (function warningsp failurep)
  
negative.code: 
  (defun validate (fun-string new-doc old-doc user-context)
    (handler-case (with-user-package
                    (funcall (ensure-view-function fun-string) new-doc old-doc user-context)
                    (respond "1")) ; the JS server does this. Cargo cult culture dictates
                                   ; that I should copy behavior regardless of understanding.
      (error (e)
  