0.6.12.46:

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

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index 7dcc7ea..f91d66a 100644 (file)
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -632,11 +632,11 @@
 
 (defvar *read-suppress* nil
   #!+sb-doc
-  "Suppresses most interpreting of the reader when T")
+  "Suppress most interpreting in the reader when T.")
 
 (defvar *read-base* 10
   #!+sb-doc
-  "The radix that Lisp reads numbers in.")
+  "the radix that Lisp reads numbers in")
 (declaim (type (integer 2 36) *read-base*))
 
 ;;; Modify the read buffer according to READTABLE-CASE, ignoring
@@ -661,7 +661,7 @@
                                  (declare (fixnum esc))
                                  (cond ((< esc i) t)
                                        (t
-                                        (assert (= esc i))
+                                        (aver (= esc i))
                                         (pop escapes)
                                         nil))))
                        (let ((ch (schar *read-buffer* i)))
@@ -1273,7 +1273,8 @@
           (error "The dispatch character ~S already exists." char))
          (t
           (setf (dispatch-tables rt)
-                (push (cons char (make-char-dispatch-table)) dalist))))))
+                (push (cons char (make-char-dispatch-table)) dalist)))))
+  t)
 
 (defun set-dispatch-macro-character (disp-char sub-char function
                                                &optional (rt *readtable*))