anchor.diff:             :test 'string=) 
     "$v")
   
  +(defparameter *declared-vars* nil
  +  "This variable holds the javascript vars that need to be declared at
  +  each function scope level.")
  +
   (defun emit-var-declarations ()
  +  "Emit javascript function level vars."
     (when *declared-vars*
  -    (let ((*declared-vars* (copy-list (cl:sort *declared-vars* 'string<))))
  +    (let ((*declared-vars* (copy-list (cl:sort *declared-vars* #'cl:string<))))
         (emit-indented "var " (first *declared-vars*))
         (dolist (var (rest *declared-vars*))
           (emit ", " var))
  
positive.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)
      ;; anything else assumes call
      (listp   compile-call-statement   compile-call-expression)))
  
  
negative.code:               (value (third v-p/p/value)))
            (when v-p
              (emit-indented-line p " = " value ";"))))
        (emit-concat (if (equal "$v" fun-name)
                    (value)
                    (global-lookup-function fun-name))
                "("
  