anchor.diff:        ;; first space is skipped for , (comma)
         (unless skip-first-space (write-char #\Space s))
         (write-string php-op s)
  -      (write-char #\Space s)
  +      (unless skip-second-space (write-char #\Space s))
         (pprint-indent :block 4 s)
         (pprint-newline :fill s)
         (let ((*B*
  
positive.code: 	(:INIT
  	 (if (eql (aref name i) #\*)
  	     (setf all-upper t)
  	     (if (eql (aref name i) #\/)
  		 (setf upper t)
  		 (progn (setf (aref new-name j) (char-downcase (aref name i)))
  			(incf j))))
  
negative.code: 		    (if (eql (aref name i) #\-)
  			(setf upper t)
  			(progn
  			  (if (and upper (eql (aref name i) #\>))
  			      (progn(setf (aref new-name j) #\-)
  				    (incf j)
  				    (setf (aref new-name j) #\>)
  				    (incf j))
  			      (progn
  				(setf (aref new-name j)
  				      (if (or upper all-upper)
  					  (char-upcase (aref name i))
  					  (char-downcase (aref name i))))
  				(incf j)))
  			      (setf upper nil))))))))))
  
  (defprinter (symbol x)
    ;; TODO: use aif
  