diff --git a/ansi-tests/character.lsp b/ansi-tests/character.lsp index 923439ef6a194f60554725fbb5f5738baf50e5e7..4f5b06df212e761edc3521c5c577074cc86e7837 100644 --- a/ansi-tests/character.lsp +++ b/ansi-tests/character.lsp @@ -574,11 +574,11 @@ t) (deftest char-name.2 - (string= (char-name #\Space) "Space") + (notnot-mv (string= (char-name #\Space) "Space")) t) (deftest char-name.3 - (string= (char-name #\Newline) "Newline") + (notnot-mv (string= (char-name #\Newline) "Newline")) t) ;;; Check that the names of various semi-standard characters are