anchor.diff:       (if
         (equal obj1 obj2)
         t
  -      (prog1 nil (print obj1) (print obj2) (terpri))))))
  +      nil
  +      ))))
        
   (defun test2 ()
     (assert (maxi-equal (get-objects +testdata+) +objs+)))
  
positive.code: 
  (defclass my-parser (ps-stack-parser) ())
  (defmethod pdfparse::parser-flush ((self my-parser))
    (print 'flush)
    (apply #'pdfparse::parser-add-results self (pdfparse::parser-popall self)))
  
  (defun get-objects (s)
  
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)))
  