anchor.diff:  
   (fn php-dollarize (x)
     (?
  -    (not x)        "NULL"
  -    (eq t x)       "TRUE"
  -    (symbol? x)    `("$" ,x)
  +    (not x)      "NULL"
  +    (eq t x)     "TRUE"
  +    (symbol? x)  `("$" ,x)
       x))
   
   (fn php-list (x)
  
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:       (list "$" val)
      (codegen-expr? val)
        (list val)
      `((,val. " " ,@(c-list (@ #'php-dollarize .val))))))
  
  (fn php-%=-0 (dest val)
    `((%%native
  