it's print-read consistency, not read/print consistency

[sbcl.git] / src / code / print.lisp

diff --git a/src/code/print.lisp b/src/code/print.lisp
index f17f4f6..c86aee4 100644 (file)
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -606,7 +606,7 @@ variable: an unreadable object representing the error is printed instead.")
             ;; be qualified. This can happen if the symbol has been
             ;; inherited from a package other than its home package.
             ;;
-            ;; To preserve read/print consistency, use the local nickname if
+            ;; To preserve print-read consistency, use the local nickname if
             ;; one exists.
             (unless (and accessible (eq symbol object))
               (let ((prefix (or (car (rassoc package (package-%local-nicknames current)))