anchor.diff:      `(,(code-char 10)
   	  "function &" ,(compiled-function-name name) "("
     	      ,@(transpiler-binary-expand ","
  -                (mapcar (fn `("&$" ,_))
  -					    args))
  +                (mapcar (fn `("&$" ,_)) args))
   	      ")" ,(code-char 10)
         "{" ,(code-char 10)
  -	     ,@(awhen (funinfo-globals fi)
  -			 `((,*php-indent* global
  -					,@(comma-separated-list (mapcar #'php-dollarize !))
  -					   ";" ,*php-newline*)))
  +		 ,(php-line "global "
  +					(comma-separated-list (mapcar #'php-dollarize
  +                                                  (cons "$NULL" (funinfo-globals fi)))))
   	     ,@(when (< *php-version* 503)
   			 (php-line "$_I_=0; while (1) { switch ($_I_) { case 0:"))
  -		 ,@(when (< 0 num-locals)
  -		     (php-line "$_local_array = Array ()"))
            ,@(lambda-body x)
   	     ,@(when (< *php-version* 503)
   			 `(,*php-indent* "}" ,*php-newline*))
  
positive.code: 
  (define-php-macro vm-go-nil (val tag)
    (if (< 503 *php-version*)
        (php-line "if (!$" val "&&$" val "!==0) { $_I_=" tag "; continue; }")
        (php-line "if (!$" val "&&$" val "!==0) goto _I_" tag)))
  
  ;;;; FUNCTIONS
  
  
negative.code: (define-php-macro %%funref (name fi-sym)
    (let fi (get-lambda-funinfo-by-sym fi-sym)
      (if (funinfo-ghost fi)
    	  	`(%funref (%transpiler-string ,(symbol-name name)) ,(funinfo-lexical (funinfo-parent fi)))
  	    name)))
  
  ;;;; ASSIGNMENT
  