Loading tests/unicode.lisp +1 −1 Original line number Original line Diff line number Diff line Loading @@ -171,7 +171,7 @@ (define-test unicode.word-break (define-test unicode.word-break "Test Unicode word break algorithm" "Test Unicode word break algorithm" (:tag :unicode) (:tag :unicode) (with-open-file (s *word-break-test* :direction :input :external-format :utf) (with-open-file (s *word-break-test* :direction :input :external-format :utf-8) (loop for line = (read-line s nil nil) (loop for line = (read-line s nil nil) while line while line do do Loading Loading
tests/unicode.lisp +1 −1 Original line number Original line Diff line number Diff line Loading @@ -171,7 +171,7 @@ (define-test unicode.word-break (define-test unicode.word-break "Test Unicode word break algorithm" "Test Unicode word break algorithm" (:tag :unicode) (:tag :unicode) (with-open-file (s *word-break-test* :direction :input :external-format :utf) (with-open-file (s *word-break-test* :direction :input :external-format :utf-8) (loop for line = (read-line s nil nil) (loop for line = (read-line s nil nil) while line while line do do Loading