anchor.diff:  ;;;;; Transpiler: TRE to PHP
   ;;;;; Copyright (c) 2008-2010 Sven Klose <pixel@copei.de>
  -;;;;;
  -;;;;; Code generation
   
   ;;;; GENERAL
   
  
positive.code:     `(,(code-char 10)
  	  "function &" ,(compiled-function-name name) "("
    	      ,@(transpiler-binary-expand ","
                  (mapcar (fn `("&$" ,_))
  					    args))
  	      ")" ,(code-char 10)
        "{" ,(code-char 10)
  	     ,@(awhen (funinfo-globals fi)
  			 `((,*php-indent* global
  					,@(comma-separated-list (mapcar #'php-dollarize !))
  					   ";" ,*php-newline*)))
  	     ,@(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*))
  
negative.code: 
  ;;;; VARIABLES
  
  ;; Experimental for lambda-export.
  (define-php-macro %vec (v i)
    `(%transpiler-native "$" ,v "[" ,(php-dollarize i) "]"))
  