anchor.diff:  (defun write-call-with-params (cmd out)
     (incf *symbol-counter*)
     (let ((new-env-name (format nil "$env_~A$" *symbol-counter*)))
  -    
  +
       (let ((data (call-data cmd)))
         (write-indent out)
         (format out "var ~A = " new-env-name)
  -      
  +
         (cond
           ((eql data :all)
            (format out "~A.$objectFromPrototype$($env$)" *js-namespace*))
  
positive.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)
  
negative.code:              (with-write-parenthesis (out)
                 (write-expression (first option) out))))
            (write-line " {" out)
            (with-increase-indent
              (write-command (second option) out))
            (write-indent out)
            (write-line "}" out))))
  