X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpathnames.impure.lisp;h=f675a8e14cbf4524f6a1e941e78533fb8fcb5f1f;hb=9c9d6dbdc28a8bfe70be09f35263e9ec02411d0e;hp=e7bee8c2a0efca716a1c7429c9c3b14be9f883b8;hpb=219457dafac6f2df2c53c1fb7de3971305a4bd50;p=sbcl.git

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index e7bee8c..f675a8e 100644
--- 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)))
 
-;;; 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