index 569a78c..87b69c6 100644 (file)
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -200,6 +200,7 @@
 \f
 ;;;; Readtable Operations
 
+(declaim (inline assert-not-standard-readtable))
 (defun assert-not-standard-readtable (readtable operation)
   (when (eq readtable *standard-readtable*)
     (cerror "Frob it anyway!" 'standard-readtable-modified-error
@@ -303,6 +304,7 @@ standard Lisp readtable when NIL."
                 nil))))
 
 
+(declaim (inline make-char-dispatch-table))
 (defun make-char-dispatch-table ()
   (make-hash-table))