#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