anchor.diff:  ;;;; FUNCTIONS
   
   (fn codegen-php-function (x)
  -  (with (fi            (get-lambda-funinfo x)
  -         name          (funinfo-name fi)
  -         num-locals    (length (funinfo-vars fi))
  -         compiled-name (compiled-function-name name))
  +  (with (fi             (get-lambda-funinfo x)
  +         name           (funinfo-name fi)
  +         num-locals     (length (funinfo-vars fi))
  +         compiled-name  (compiled-function-name name))
       (developer-note "Generating function ~A…~%" name)
       `(,*terpri*
         ,(funinfo-comment fi)
         "function " ,compiled-name ,@(php-argument-list (funinfo-args fi))
         "{" ,(code-char 10)
  -         ,@(awhen (funinfo-globals fi)
  -             (php-line "global " (php-list !)))
  +         ,@(!? (funinfo-globals fi)
  +               (php-line "global " (php-list !)))
            ,@(& *print-executed-functions?*
                 `("echo \"" ,compiled-name "\\n\";"))
            ,@(lambda-body x)
  
positive.code: 
  (fn php-dollarize (x)
    (?
      (not x)        "NULL"
      (eq t x)       "TRUE"
      (symbol? x)    `("$" ,x)
      x))
  
  (fn php-list (x)
  
negative.code:       (list "$" val)
      (codegen-expr? val)
        (list val)
      `((,val. " " ,@(c-list (@ #'php-dollarize .val))))))
  
  (fn php-%=-0 (dest val)
    `((%%native
  