anchor.diff:      (write x :pretty t :escape nil)
       (values)))
   
  -(defun set-php-pprint-dispatch (typespec function &optional (priority 0))
  +(defun set-php-pprint-dispatch (typespec function &optional (priority 5))
     (set-pprint-dispatch typespec function priority *php-pprint-dispatch*))
   
   (defmacro defprinter ((typespec obj &optional (priority 0)) &body body)
  
positive.code: ;; defspecialform should allow destructuring, and make patterns
  ;; from destructuring
  (defspecialform (if cond true false)
    (fmt "if (~W) ~/pprint-block/ else ~/pprint-block/" cond (list true) (list false)))
  
  ;; descriptions of varios operations
  (defvar *ops* (loop
     for ops in (reverse
  	       ;; op php-op associativity arity
  	       ;; each sublist contains ops of the same priority
  	       '(((clone "clone" :none 1 :makespace t)
  		  (new "new" :none 1 :makespace t))
  		 ((aref "" :left 2 :noauto t))
  		 ((~ "~" :none 1)
  
negative.code: (in-package :php)
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (in-package :php)
    (defvar *php-pprint-dispatch* (copy-pprint-dispatch))
    (proclaim '(special *B*)))
  
  