0.6.11.23:
[sbcl.git] / src / code / reader.lisp
index 7dcc7ea..32661aa 100644 (file)
                                  (declare (fixnum esc))
                                  (cond ((< esc i) t)
                                        (t
-                                        (assert (= esc i))
+                                        (aver (= esc i))
                                         (pop escapes)
                                         nil))))
                        (let ((ch (schar *read-buffer* i)))