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: 				(dolist (condition assertion-conditions)
  					(unless (equal suite (slot-value condition 'suite))
  						(setf suite (slot-value condition 'suite))
  						#-clisp (format stream "~4I~:@_~:@_~8I~A~{~^ -> ~A~}: (Test Suite)" (first suite) (rest suite))
  						#+clisp (format stream "~-4I~:@_~:@_~A~{~^ -> ~A~}: (Test Suite)~4I" (first suite) (rest suite)))
  					(unless (eq :pass (slot-value condition 'type))
  						(format stream "~:@_~A" condition))))
  		
  
negative.code: 	(pprint-logical-block (stream nil)
  		(with-slots (expression expected message result forms test type) assertion-condition
  			(case type
  				(:error	(format stream "~S: ~<~A~:>" test message))
  				(t		#-clisp (format stream "~S: ~<Expression: ~S~:@_Expected: ~A~:@_Returned: ~A~{~^~:@_~:[~A~;~S => ~S~]~}~:>" test (list expression expected result forms))
  						#+clisp (format stream "~S: ~8IExpression ~S~:@_Expected ~A~:@_Returned: ~A~{~^~:@_~:[~A~;~S => ~S~]~}" test expression expected result forms))))))
  
  
  ;; TEST ANYTHING PROTOCOL (TAP)
  