Trac 23: [cmucl-help] Spurious compilation diagnostic?
From Trac 37.
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.