diff --git a/ansi-tests/char-schar.lsp b/ansi-tests/char-schar.lsp index fc07c31c2e1ccaf22c6700b0ed7d82a3ba320abb..a66ed60e9bec360339031fff51ad92e8edd70382 100644 --- a/ansi-tests/char-schar.lsp +++ b/ansi-tests/char-schar.lsp @@ -62,7 +62,7 @@ (setf (char s 5) #\X) (setf (fill-pointer s) 6) s) - "abcXef") + "abcdeX") (deftest char.9 (let ((s (make-string 5 :initial-element #\a