anchor.diff:  ;;;;; tré – Copyright (c) 2008–2012 Sven Michael Klose <pixel@copei.de>
   
  -;;;; GENERAL
  +;;;; CODE GENERATION HELPERS
   
   (defvar *php-by-reference?* nil)
   
  
positive.code:   `(%transpiler-native ,(php-dollarize h) ,@(php-array-indexes k) " = " ,(php-dollarize v)))
  
  (define-php-macro href (h k)
  ;  `(%transpiler-native ,(php-dollarize h) "->g(userfun_T37T37key(" ,(php-dollarize k) "))"))
    `(%transpiler-native "(is_a (" ,(php-dollarize h) ", '__l') || is_a (" ,(php-dollarize h) ", '__array')) ? "
                         ,(php-dollarize h) "->g(userfun_T37T37key (" ,(php-dollarize k) ")) : "
                         "(isset (" ,(php-dollarize h) "[userfun_T37T37key (" ,(php-dollarize k) ")]) ? "
  
negative.code: (defmacro define-php-infix (name)
    `(define-transpiler-infix *php-transpiler* ,name))
  
  ;;;; TRUTH
  
  (transpiler-translate-symbol *php-transpiler* nil "NULL")
  (transpiler-translate-symbol *php-transpiler* t "TRUE")
  
  ;;;; LITERAL SYMBOLS
  
  (define-php-macro %quote (x)
    (php-compiled-symbol x))
  
  ;;;; CONTROL FLOW
  
  