- (write-line (concat (if-html "<font color=orange>")
- "Test `"
- ,(prin1-to-string condition)
- "' passed unexpectedly!"
- (if-html "</font>")))
+ (if *use-html-output-p*
+ (format t "<font color='orange'>Test `~S' passed unexpectedly!</font>~%" ',condition)
+ (format t "Test `~S' passed unexpectedly!~%" ',condition))