1.0.44.4: make MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA build proper XEPs

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

diff --git a/src/code/load.lisp b/src/code/load.lisp
index 97258b3..3b2a82f 100644 (file)
--- a/src/code/load.lisp
+++ b/src/code/load.lisp
@@ -456,6 +456,8 @@
         ;; that this would go away?
         (fill *current-fop-table* nil))))
   t)
+
+(declaim (notinline read-byte)) ; Why is it even *declaimed* inline above?
 \f
 ;;;; stuff for debugging/tuning by collecting statistics on FOPs (?)