From: Paul Khuong <pvk@pvk.ca>
Date: Mon, 26 Apr 2010 21:42:58 +0000 (+0000)
Subject: 1.0.37.67: Reset a toplevel INLINE declaration for READ-BYTE
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=18cc020d7e2477249c280c61750599213fb58ba9;p=sbcl.git

1.0.37.67: Reset a toplevel INLINE declaration for READ-BYTE

 * It used to remain declaimed inline after load.lisp.
   Report and patch by Stas Boukarev.
---

diff --git a/NEWS b/NEWS
index 23759fb..8cc7a71 100644
--- a/NEWS
+++ b/NEWS
@@ -72,6 +72,8 @@ changes relative to sbcl-1.0.37:
   * bug fix: Transforms for TRUNCATE don't die when the result is completely
     ignored anymore.
   * bug fix: Maybe restore buildability on Alpha.
+  * bug fix: READ-BYTE isn't inline anymore, fixing weird streams failures. 
+    (lp#569404)
 
 changes in sbcl-1.0.37 relative to sbcl-1.0.36:
   * enhancement: Backtrace from THROW to uncaught tag on x86oids now shows
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 (?)
 
diff --git a/version.lisp-expr b/version.lisp-expr
index ef5524a..9d21537 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.37.66"
+"1.0.37.67"