anchor.diff:  	(:INIT
   	 (if (eql (aref name i) #\*)
   	     (setf all-upper t)
  -	     (if (eql (aref name i) #\/)
  +	     (if (eql (aref name i) #\-)
   		 (setf upper t)
   		 (progn (setf (aref new-name j) (char-downcase (aref name i)))
   			(incf j))))
  
positive.code:       ;; first space is skipped for , (comma)
        (unless skip-first-space (write-char #\Space s))
        (write-string php-op s)
        (write-char #\Space s)
        (pprint-indent :block 4 s)
        (pprint-newline :fill s)
        (let ((*B*
  
negative.code: 		 for ops in (reverse
  			     ;; op php-op associativity arity
  			     ;; each sublist contains ops of the same priority
  			     '(((ref "->" :left 2 :skip-first-space t :skip-second-space t))
  			       ((funcall "" :left 1 :noauto t))
  			       ((clone "clone" :none 1 :makespace t)
  				(new "new" :none 1 :makespace t))
  			       ((aref "" :left 2 :noauto t))
  