Place C standard I/O based streams into subtype.

* lib.c (subtypep): Handle subtype check here between
stream and stdio-stream as a special case, since streams
aren't structures related by inheritance, but built-ins.
(class_check): If the type of obj doesn't match the class
exactly, use a subtypep check. We need this because stream
functions use this check, and stdio streams are not of the
stream type now.

* stream.c (stdio_stream_s): New global symbol variable.
(make_stdio_stream_common): Use stdio_stream_s symbol for the
type of stdio streams.
(stream_init): Intern the stdio-stream symbol, and store in
stdio_stream_s variable.
(streamp): Replace exact check with typep.

* stream.h (stdio_stream_s): Declared.

1 files changed, 2 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index d6abfc21..0891d9bc 100644
--- a/stream.h
+++ b/stream.h
@@ -88,6 +88,8 @@ extern val from_start_k, from_current_k, from_end_k;
 extern val real_time_k, name_k, fd_k;
 extern val format_s;
 
+extern val stdio_stream_s;
+
 extern val stdin_s, stdout_s, stddebug_s, stderr_s, stdnull_s;
 
 extern val print_flo_precision_s, print_flo_digits_s, print_flo_format_s;