anchor.diff:  (defun write-indent (out)
     (dotimes (i (* 4 *indent-level*))
       (write-char #\Space out)))
  -               
  +
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; expressions
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:     (write-function "$objectFromPrototype$" ()
        (write-line "    function C () {}" out)
        (write-line "    C.prototype = obj;" out)
        (write-line "    return new C;" out)))
    (values))
  
  (defun write-namespace-body (name templates out)
  
negative.code:           "~&~A.~A = function($env$, $target$) {~&"
            *js-namespace*
            (template-name tmpl))
  
    (let ((*indent-level* 1)
          (*autoescape* (getf (template-properties tmpl) :autoescape t)))
      (write-indent out)
  