2338 |
@) |
@) |
2339 |
|
|
2340 |
object |
object |
2341 |
read_byte1(str,eof) |
read_byte1(strm,eof) |
2342 |
object str,eof; |
object strm,eof; |
2343 |
{if (stream_at_end(str)) |
{ |
2344 |
return eof; |
if (strm == Cnil) |
2345 |
return make_fixnum(readc_stream(str));} |
strm = symbol_value(sLAstandard_inputA); |
2346 |
|
else if (strm == Ct) |
2347 |
|
strm = symbol_value(sLAterminal_ioA); |
2348 |
|
if (stream_at_end(strm)) |
2349 |
|
return eof; |
2350 |
|
return make_fixnum(readc_stream(strm)); |
2351 |
|
} |
2352 |
|
|
2353 |
object |
object |
2354 |
read_char1(str,eof) |
read_char1(strm,eof) |
2355 |
object str,eof; |
object strm,eof; |
2356 |
{if (stream_at_end(str)) |
{ |
2357 |
return eof; |
if (strm == Cnil) |
2358 |
return code_char(readc_stream(str));} |
strm = symbol_value(sLAstandard_inputA); |
2359 |
|
else if (strm == Ct) |
2360 |
|
strm = symbol_value(sLAterminal_ioA); |
2361 |
|
if (stream_at_end(strm)) |
2362 |
|
return eof; |
2363 |
|
return code_char(readc_stream(strm)); |
2364 |
|
} |
2365 |
|
|
2366 |
@(defun copy_readtable (&optional (from `current_readtable()`) to) |
@(defun copy_readtable (&optional (from `current_readtable()`) to) |
2367 |
@ |
@ |