0.6.11.23:

[sbcl.git] / src / code / late-extensions.lisp

diff --git a/src/code/late-extensions.lisp b/src/code/late-extensions.lisp
index 016c921..9342340 100644 (file)
--- a/src/code/late-extensions.lisp
+++ b/src/code/late-extensions.lisp
@@ -83,7 +83,7 @@
   ;; workaround for broken READ-SEQUENCE
   #+no-ansi-read-sequence
   (progn
-    (assert (<= start end))
+    (aver (<= start end))
     (let ((etype (stream-element-type stream)))
     (cond ((equal etype '(unsigned-byte 8))
           (do ((i start (1+ i)))