[cmucl-ticket] #23: [cmucl-help] Spurious compilation diagnostic?

[cmucl]

#23: [cmucl-help] Spurious compilation diagnostic?
--------------------+-------------------------------------------------------
 Reporter:  rtoy    |       Owner:  somebody
     Type:  defect  |      Status:  new     
 Priority:  minor   |   Milestone:          
Component:  Core    |     Version:  2008-09 
 Keywords:          |  
--------------------+-------------------------------------------------------
 Reported on cmucl-help, by Steven Edwards, 2008/09/21.

 {{{
 (defun read-ch (my-stream)
   (declare (optimize speed (space 0)))
   (read-char my-stream nil nil))
 }}}

 produces spurious warnings:

 {{{
 ; In: DEFUN READ-CH

 ;   (READ-CHAR MY-STREAM NIL NIL)
 ; --> BLOCK LET LISP::STREAM-DISPATCH ETYPECASE LET COND IF COND IF PROGN
 ; ==>
 ;   (STREAM::%READ-CHAR STREAM LISP::EOF-ERRORP LISP::EOF-VALUE
 ;    LISP::RECURSIVE-P ...)
 ; Warning: Undefined function STREAM::%READ-CHAR
 ;
 ; --> BLOCK LET LISP::STREAM-DISPATCH ETYPECASE LET COND IF COND IF COND
 ; --> IF PROGN LET
 ; ==>
 ;   (STREAM-READ-CHAR STREAM)
 ; Warning: Undefined function STREAM-READ-CHAR
 ; ;

 ; Warning: These functions are undefined:
 ;   STREAM::%READ-CHAR STREAM-READ-CHAR
 ;
 }}}

 These are caused by the stream-dispatch mechanism and the functions aren't
 defined because Gray streams and simple-streams aren't loaded.

 We should probably get rid of the warnings.

-- 
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/23>
cmucl <http://common-lisp.net/project/cmucl>
cmucl