mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-09 10:42:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

ecl_output_stream_p now works with smm_probe

Browse source
This commit is contained in:
jgarcia 2006-10-27 22:31:04 +00:00
parent 8724c18d3c
commit 363d11b287
2 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/compiler.d
View file

@ -1767,7 +1767,6 @@ c_tagbody(cl_object args, int flags)
*/
static int
c_throw(cl_object stmt, int flags) {
/* FIXME! Do we apply the right protocol here? */
cl_object tag = pop(&stmt);
cl_object form = pop(&stmt);
if (stmt != Cnil)
@ -1841,7 +1840,6 @@ compile_form(cl_object stmt, int flags) {
bool push = flags & FLAG_PUSH;
int new_flags;
/* FIXME! We should protect this region with error handling */
BEGIN:
if (code_walker != OBJNULL) {
stmt = funcall(3, SYM_VAL(@'si::*code-walker*'), stmt,

5
src/c/file.d
View file

@ -112,6 +112,7 @@ BEGIN:
FEtype_error_stream(strm);
switch ((enum ecl_smmode)strm->stream.mode) {
case smm_input:
case smm_probe:
#if defined(ECL_WSOCK)
case smm_input_wsock:
#endif
@ -507,9 +508,7 @@ static void flush_output_stream_binary(cl_object strm);
case smm_probe:
if (fp == NULL)
wrong_file_handler(strm);
/* FIXME: the check for probe stream is only here because *
* output_stream_p is not defined for such streams */
if (strm->stream.mode != smm_probe && !strm->stream.char_stream_p && ecl_output_stream_p(strm)) {
if (!strm->stream.char_stream_p && ecl_output_stream_p(strm)) {
if ((strm->stream.byte_size & 7))
/* buffered binary output stream -> flush any pending bits */
flush_output_stream_binary(strm);