See below. I wonder why I get the warnings. The code seems to work
fine, though. (CMUCL 18e on Linux.)
Thanks,
Edi.
[EMAIL PROTECTED]:/tmp > cat foo.lisp
(defun foo (stream)
(declare (optimize speed
(space 0)))
(read-char stream t nil t))
[EMAIL PROTECTED]:/tmp > cmucl
; Loading #p"/home/edi/.cmucl-init".
CMU Common Lisp 18e, running on bird.agharta.de
With core: /usr/local/lib/cmucl/lib/lisp.core
Dumped on: Thu, 2003-04-03 15:47:12+02:00 on orion
Send questions and bug reports to your local CMUCL maintainer,
or see <http://www.cons.org/cmucl/support.html>.
Loaded subsystems:
Python 1.1, target Intel x86
CLOS 18e (based on PCL September 16 92 PCL (f))
* (compile-file "foo.lisp")
; Python version 1.1, VM version Intel x86 on 20 OCT 03 04:27:16 pm.
; Compiling: /tmp/foo.lisp 20 OCT 03 04:27:02 pm
; Converted FOO.
; Compiling DEFUN FOO:
; Byte Compiling Top-Level Form:
;
;
; File: /tmp/foo.lisp
; In: DEFUN FOO
; (READ-CHAR STREAM T NIL T)
; --> BLOCK LET IF LET
; ==>
; (STREAM-READ-CHAR STREAM)
; Warning: Undefined function: STREAM-READ-CHAR
; ;
; Warning: This function is undefined:
; STREAM-READ-CHAR
;
; Compilation unit finished.
; 2 warnings
; foo.x86f written.
; Compilation finished in 0:00:00.
#p"/tmp/foo.x86f"
NIL
NIL
