X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fload.lisp;h=3b2a82fbac5d6a20c7825619e58bca146f707069;hb=ae469bbdd046b46348538f1b69db6e6b044be52f;hp=97258b37fb8276414b2d8bc95ed2eb91f1db8757;hpb=a6e22347785e8ce3eaf13013cfc69d6aac9c8c0e;p=sbcl.git

diff --git a/src/code/load.lisp b/src/code/load.lisp
index 97258b3..3b2a82f 100644
--- 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?
 
 ;;;; stuff for debugging/tuning by collecting statistics on FOPs (?)