anchor.diff:  
   (defclass my-parser (ps-stack-parser) ())
   (defmethod pdfparse::parser-flush ((self my-parser))
  -  (print 'flush)
  +  ;(print 'flush)
     (apply #'pdfparse::parser-add-results self (pdfparse::parser-popall self)))
   
   (defun get-objects (s)
  
positive.code:      (if
        (equal obj1 obj2)
        t
        (prog1 nil (print obj1) (print obj2) (terpri))))))
       
  (defun test2 ()
    (assert (maxi-equal (get-objects +testdata+) +objs+)))
  
negative.code: 		      (pythonic-read (slot-value self 'fp)
  				     +ps-buf-size+))
  		(when (string= s "") (return))
  		;(print s)
  		(loop
  		   (setf n (max (position #\Return s :from-end t)
  				(position #\Newline s :from-end t)))
  