anchor.diff:  
   (defun report-suite-progress (suite suite-list)
   	(if *report-progress*
  -		(format *standard-output* "~%~%~VT~A: (Test Suite)" (* *tab-width* (1+ (length suite-list))) suite)))
  +		(format *standard-output* "~%~%~VT~S: (Test Suite)" (* *tab-width* (1+ (length suite-list))) suite)))
   
   (defun report-test-progress (test-name suite-list)
   	(if *report-progress*
  -		(format *standard-output* "~%~VT~A: " (* *tab-width* (1+ (length suite-list))) test-name)))
  +		(format *standard-output* "~%~VT~S: " (* *tab-width* (1+ (length suite-list))) test-name)))
   
   (defun report-assertion-progress (type)
   	(if *report-progress*
  
positive.code: 	(pprint-logical-block (stream nil)
  		(with-slots (expression expected message result forms test type) assertion-condition
  			(case type
  				(:error	(format stream "~A: ~<~A~:>" test message))
  				(t		#-clisp (format stream "~A: ~<Expression: ~S~:@_Expected: ~A~:@_Returned: ~A~{~^~:@_~:[~A~;~S => ~S~]~}~:>" test (list expression expected result forms))
  						#+clisp (format stream "~A: ~8IExpression ~S~:@_Expected ~A~:@_Returned: ~A~{~^~:@_~:[~A~;~S => ~S~]~}" test expression expected result forms))))))
  
  
  ;; TEST ANYTHING PROTOCOL (TAP)
  
negative.code: 				(dolist (condition assertion-conditions)
  					(unless (equal suite (slot-value condition 'suite))
  						(setf suite (slot-value condition 'suite))
  						#-clisp (format stream "~4I~:@_~:@_~8I~S~{~^ -> ~S~}: (Test Suite)" (first suite) (rest suite))
  						#+clisp (format stream "~-4I~:@_~:@_~S~{~^ -> ~S~}: (Test Suite)~4I" (first suite) (rest suite)))
  					(unless (eq :pass (slot-value condition 'type))
  						(format stream "~:@_~A" condition))))
  		
  