483 |
|
|
484 |
setup_stream_buffer(x); |
setup_stream_buffer(x); |
485 |
vs_reset; |
vs_reset; |
486 |
|
|
487 |
|
if (smm==smm_probe) |
488 |
|
close_stream(x); |
489 |
|
|
490 |
return(x); |
return(x); |
491 |
} |
} |
492 |
|
|
1986 |
vs_base[0] = open_stream_p(vs_base[0]); |
vs_base[0] = open_stream_p(vs_base[0]); |
1987 |
} |
} |
1988 |
|
|
1989 |
|
LFD(Lstream_external_format)() |
1990 |
|
{ |
1991 |
|
check_arg(1); |
1992 |
|
|
1993 |
|
check_type_stream(&vs_base[0]); |
1994 |
|
vs_base[0] = sKdefault; |
1995 |
|
} |
1996 |
|
|
1997 |
LFD(Linteractive_stream_p)() |
LFD(Linteractive_stream_p)() |
1998 |
{ |
{ |
1999 |
check_arg(1); |
check_arg(1); |
2022 |
(element_type sLstring_char) |
(element_type sLstring_char) |
2023 |
(if_exists Cnil iesp) |
(if_exists Cnil iesp) |
2024 |
(if_does_not_exist Cnil idnesp) |
(if_does_not_exist Cnil idnesp) |
2025 |
|
(external_format sKdefault iefp) |
2026 |
&aux strm) |
&aux strm) |
2027 |
enum smmode smm=0; |
enum smmode smm=0; |
2028 |
vs_mark; |
vs_mark; |
2739 |
DEF_ORDINARY("APPEND",sKappend,KEYWORD,""); |
DEF_ORDINARY("APPEND",sKappend,KEYWORD,""); |
2740 |
DEF_ORDINARY("CREATE",sKcreate,KEYWORD,""); |
DEF_ORDINARY("CREATE",sKcreate,KEYWORD,""); |
2741 |
DEF_ORDINARY("DEFAULT",sKdefault,KEYWORD,""); |
DEF_ORDINARY("DEFAULT",sKdefault,KEYWORD,""); |
2742 |
|
DEF_ORDINARY("EXTERNAL-FORMAT",sKexternal_format,KEYWORD,""); |
2743 |
DEF_ORDINARY("DIRECTION",sKdirection,KEYWORD,""); |
DEF_ORDINARY("DIRECTION",sKdirection,KEYWORD,""); |
2744 |
DEF_ORDINARY("ELEMENT-TYPE",sKelement_type,KEYWORD,""); |
DEF_ORDINARY("ELEMENT-TYPE",sKelement_type,KEYWORD,""); |
2745 |
DEF_ORDINARY("ERROR",sKerror,KEYWORD,""); |
DEF_ORDINARY("ERROR",sKerror,KEYWORD,""); |
2799 |
make_function("INPUT-STREAM-P", Linput_stream_p); |
make_function("INPUT-STREAM-P", Linput_stream_p); |
2800 |
make_function("OUTPUT-STREAM-P", Loutput_stream_p); |
make_function("OUTPUT-STREAM-P", Loutput_stream_p); |
2801 |
make_function("OPEN-STREAM-P", Lopen_stream_p); |
make_function("OPEN-STREAM-P", Lopen_stream_p); |
2802 |
|
make_function("STREAM-EXTERNAL-FORMAT", Lstream_external_format); |
2803 |
make_function("INTERACTIVE-STREAM-P", Linteractive_stream_p); |
make_function("INTERACTIVE-STREAM-P", Linteractive_stream_p); |
2804 |
make_function("STREAM-ELEMENT-TYPE", Lstream_element_type); |
make_function("STREAM-ELEMENT-TYPE", Lstream_element_type); |
2805 |
make_function("CLOSE", Lclose); |
make_function("CLOSE", Lclose); |