Fix lose() invocation inside sparc-arch.c

[sbcl.git] / tests / pathnames.impure.lisp

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index e7bee8c..f675a8e 100644 (file)
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -323,7 +323,7 @@
   (assert (raises-error? (merge-pathnames (make-string-output-stream))
                          type-error)))
 \f
-;;; ensure read/print consistency (or print-not-readable-error) on
+;;; ensure print-read consistency (or print-not-readable-error) on
 ;;; pathnames:
 (with-test (:name :print/read-consistency :fails-on :win32)
   (let ((pathnames (list