anchor.diff:  (defmethod print-format ((assertion-condition assertion-condition) (format (eql :tap)) stream)
   	(pprint-logical-block (stream nil :per-line-prefix "#  ")
   		(with-slots (expression expected message result forms test suite type) assertion-condition
  -			#-clisp (format stream "Suite: ~A~{~^ -> ~A~}" (first suite) (rest suite))
  -			#+clisp (format stream "Suite: ~A~{~^ -> ~A~}" (first suite) (rest suite))
  +			#-clisp (format stream "Suite: ~S~{~^ -> ~S~}" (first suite) (rest suite))
   			(case type
  -				(:error	(format stream "~:@_Test: ~A:~:@_~A" test message))
  -				(t		(format stream "~:@_Test: ~A~:@_Expression: ~S~:@_Expected: ~A~:@_Returned: ~A~{~^~:@_~:[~A~;~S => ~S~]~}" test expression expected result forms))))))
  +				(:error	(format stream "~:@_Test: ~S:~:@_~A" test message))
  +				(t		(format stream "~:@_Test: ~S~:@_Expression: ~S~:@_Expected: ~A~:@_Returned: ~A~{~^~:@_~:[~A~;~S => ~S~]~}" test expression expected result forms))))))
  
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: 
  (defun report-suite-progress (suite suite-list)
  	(if *report-progress*
  		(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~S: " (* *tab-width* (1+ (length suite-list))) test-name)))
  
  (defun report-assertion-progress (type)
  	(if *report-progress*
  