[Sbcl-devel] read-byte and 'cl:stream

[Attila L. <att...@gm...>]

hi!

this may be a bug: when read-byte from a variable called 'cl:stream i
get a note of deleting unreachable code and the same call with a
different name issues no notes. both invocations work as expected
because the /tmp/x file was empty while testing.

DPT> (with-input-from-file (stream "/tmp/x" :element-type 'unsigned-byte)
       (read-byte stream nil stream))
; in: LAMBDA NIL
;     (READ-BYTE STREAM NIL STREAM)
; --> BLOCK IF LET IF SB-IMPL::EOF-OR-LOSE IF ERROR
; ==>
;   STREAM
;
; note: deleting unreachable code
;
; compilation unit finished
;   printed 1 note
#<SB-SYS:FD-STREAM for "file /tmp/x" {D0BFE81}>

DPT> (with-input-from-file (stream1 "/tmp/x" :element-type 'unsigned-byte)
       (read-byte stream1 nil stream1))
#<SB-SYS:FD-STREAM for "file /tmp/x" {D22E789}>
DPT>

hope this helps,

-- 
- attila

(alias 101 on irc &no 'its not lisp code :)