anchor.diff:        (list "$" val)
       (codegen-expr? val)
         (list val)
  -    `((,val. " " ,@(c-list (@ #'php-codegen-argument-filter .val))))))
  +    `((,val. " " ,@(c-list (@ #'php-dollarize .val))))))
   
   (fn php-%=-0 (dest val)
     `((%%native
  
positive.code: ;;;; 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))
      (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 !)))
           ,@(& *print-executed-functions?*
                `("echo \"" ,compiled-name "\\n\";"))
           ,@(lambda-body x)
  
negative.code: 
  (fn php-dollarize (x)
    (?
      (not x)      "NULL"
      (eq t x)     "TRUE"
      (symbol? x)  `("$" ,x)
      x))
  
  (fn php-list (x)
  