anchor.diff:  				(>= ">=" :none 2))
   			       ((/= "!=" :none 2)
   				(= "==" :none 2))
  -			       ((ref "&" :left 1))
  +			       ((getref "&" :left 1))
   			       ((logand "&" :left 2))
   			       ((logxor "^" :left 2))
   			       ((logior "|" :left 2))
  
positive.code: 	(when makespace (write-string " " s))
  	(write (pprint-pop) :stream s)))))
  
  (defun make-binary-op (php-op assoc precedence &rest keys &key skip-first-space &allow-other-keys)
    (declare (ignore keys))
    (lambda (s op)
      (in-op-pprint-block
  
negative.code:       ;; first space is skipped for , (comma)
        (unless skip-first-space (write-char #\Space s))
        (write-string php-op s)
        (unless skip-second-space (write-char #\Space s))
        (pprint-indent :block 4 s)
        (pprint-newline :fill s)
        (let ((*B*
  