X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Freader.lisp;h=f91d66a0e81f98f59e55b93d14a61ec605c46129;hb=fbe6e22af842835f7c70309f4d48064ca3984ad0;hp=7dcc7ea3c72d12e4b60463fca10ea6917a5706a3;hpb=143edab8d233c784cde14bce6c5165219ea84bf4;p=sbcl.git

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index 7dcc7ea..f91d66a 100644
--- 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*))