anchor.diff:                (value (third v-p/p/value)))
             (when v-p
               (emit-indented-line p " = " value ";"))))
  -      (concat (if (equal "$v" fun-name)
  +      (emit-concat (if (equal "$v" fun-name)
                     (value)
                     (global-lookup-function fun-name))
                 "("
  
positive.code:            :test 'string=) 
    "$v")
  
  (defun emit-var-declarations ()
    (when *declared-vars*
      (let ((*declared-vars* (copy-list (cl:sort *declared-vars* 'string<))))
        (emit-indented "var " (first *declared-vars*))
        (dolist (var (rest *declared-vars*))
          (emit ", " var))
  
negative.code: 
  ;; COMPILER DISPATCH
  (defparameter *compiler-dispatch*
    `((symbolp     compile-symbol-statement    compile-symbol-expression)
      (numberp     compile-number-statement    compile-number-expression)
      (stringp     compile-string-statement    compile-string-expression)
      (lambda-p    compile-lambda-statement    compile-lambda-expression)
      (js-inline-p compile-js-inline-statement compile-js-inline-expression)
      (js-lines-p  compile-js-lines-statement  compile-js-lines-expression)
      ;; anything else assumes call
      (listp   compile-call-statement   compile-call-expression)))
  
  