diff --git a/ansi-tests/types-and-class.lsp b/ansi-tests/types-and-class.lsp index 0f248c179058c83d3a9e27794748a786b23f4f60..9e4e3637d07fcf7b9af5527f3e5ed896b6cab9eb 100644 --- a/ansi-tests/types-and-class.lsp +++ b/ansi-tests/types-and-class.lsp @@ -307,8 +307,8 @@ (handler-case (and (not (typep x tp2)) (progn - (format t "Found element of ~S not in ~S~%" - tp tp2) + (format t "Found element of ~S not in ~S ~S~%" + tp tp2 x) t)) (condition (c) (format t "Error ~S occured: ~S~%" c tp2)