[Sbcl-commits] master: Remove unnecessary use of IN-SYNONYM-OF

[Douglas K. <sn...@us...>]

The branch "master" has been updated in SBCL:
       via  89cc53793c8e5a43cec2a58dda304cee623490d6 (commit)
      from  4b35bab0d897e79f73c773f8933003bed5334afa (commit)

- Log -----------------------------------------------------------------
commit 89cc53793c8e5a43cec2a58dda304cee623490d6
Author: Douglas Katzman <do...@go...>
Date:   Sat Sep 27 19:22:57 2014 -0400

    Remove unnecessary use of IN-SYNONYM-OF
    
    The type declaration on STREAM precludes T and NIL as possibilities.
---
 src/code/stream.lisp |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index b90dde3..84226b5 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -478,8 +478,7 @@
   (declare (type ansi-stream stream)
            (type index numbytes start)
            (type (or (simple-array * (*)) system-area-pointer) buffer))
-  (let* ((stream (in-synonym-of stream ansi-stream))
-         (in-buffer (ansi-stream-in-buffer stream))
+  (let* ((in-buffer (ansi-stream-in-buffer stream))
          (index (ansi-stream-in-index stream))
          (num-buffered (- +ansi-stream-in-buffer-length+ index)))
     (declare (fixnum index num-buffered))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL