diff options
| -rw-r--r-- | tests/reader.impure.lisp | 2 | ||||
| -rw-r--r-- | tests/run-tests.lisp | 14 |
2 files changed, 2 insertions, 14 deletions
diff --git a/tests/reader.impure.lisp b/tests/reader.impure.lisp index 55e4526f4..b2d3a4e05 100644 --- a/tests/reader.impure.lisp +++ b/tests/reader.impure.lisp @@ -144,7 +144,7 @@ (assert (eq 'a (read (make-instance 'my-in-stream :last-char nil)))) ;;; NIL as the last argument to SET-SYNTAX-FROM-CHAR in compiled code, -;;; reported by Levente Mészáros +;;; reported by Levente MĂ©száros (let ((fun (compile nil '(lambda () (set-syntax-from-char #\{ #\( *readtable* nil))))) (funcall fun) diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp index ab06c986a..cce981d2b 100644 --- a/tests/run-tests.lisp +++ b/tests/run-tests.lisp @@ -228,19 +228,7 @@ (use-package :assertoid)) (defun load-test (file) - ;; KLUDGE: while it may be the case that all test files should be opened - ;; as UTF-8, the 'reader' test file is particularly strange because it - ;; contains non-UTF-8 bytes, but the character decoding warning was not - ;; an intended test. It was happenstance that makes one think - ;; "great! there _is_ a test for character decoding errors - ;; in the file I would expect to find such a test in" - ;; except it isn't. A true test would assert something useful, - ;; AND not make scary meta-noise, or at least preface it with - ;; ";; Expect warnings from the following test" - `(load ,file - ,@(if (search "reader.impure" (namestring file)) - '(:external-format :latin-1)))) - + `(load ,file)) (defun cload-test (file) `(let ((compile-name (compile-file-pathname ,file))) |