diff --git a/tests/trac.lisp b/tests/trac.lisp index 2f9a4ae81b5d7b52df408abe6f46d56ac8f97f81..a2a1e35dd2d3e58a6827d030d4a20cdd914f6c6d 100644 --- a/tests/trac.lisp +++ b/tests/trac.lisp @@ -157,7 +157,7 @@ (dotimes (i 300) (let ((ch (read-char s nil nil))) (unless (= i (char-code ch)) - (push (list i ch (char-code ch)) faillures))))) + (push (list i ch (char-code ch)) failures))))) failures) (delete-file path)))))