0.6.11.23:

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

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 76d33bb..cccdba4 100644 (file)
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -541,7 +541,7 @@
   ;; spec, and extrapolating from the behavior of other operations
   ;; when their operands are the wrong type, it seems that it would be
   ;; more correct to essentially
-  ;;    (ASSERT (<= 0 START END (LENGTH STRING)))
+  ;;    (AVER (<= 0 START END (LENGTH STRING)))
   ;; instead of modifying the incorrect values.
   #!+high-security
   (setf end (min end (length (the vector string))))