Fix two problems with RUN-PROGRAM: Missing :WAIT keyword and cl_core.null_stream not being input/output

This commit is contained in:
jjgarcia 2008-08-19 12:06:35 +00:00
parent 4adaa528de
commit eb548bfd4a
3 changed files with 19 additions and 1 deletions

View file

@ -14,6 +14,10 @@ ECL 0.9l-p1:
- In compiled files, externalize package objects using FIND-PACKAGE.
- In RUN-PROGRAM, there were two bugs: first, the keyword :WAIT was not defined
in the C core and caused an error when used; second, the input/output streams
were not properly arranged.
;;; Local Variables: ***
;;; mode:text ***
;;; fill-column:79 ***

View file

@ -2987,8 +2987,22 @@ init_file(void)
cl_object standard_output;
cl_object error_output;
cl_object standard;
cl_object null_stream;
cl_object x;
null_stream = cl_alloc_object(t_stream);
null_stream->stream.mode = (short)smm_io;
null_stream->stream.closed = 0;
null_stream->stream.file = NULL;
null_stream->stream.object0 = @'base-char';
null_stream->stream.object1 = make_constant_base_string("/dev/null");
null_stream->stream.int0 = 0;
null_stream->stream.int1 = 0;
null_stream->stream.char_stream_p = 1;
null_stream->stream.byte_size = 8;
null_stream->stream.signed_bytes = 0;
cl_core.null_stream = null_stream;
standard_input = cl_alloc_object(t_stream);
standard_input->stream.mode = (short)smm_input;
standard_input->stream.closed = 0;

View file

@ -331,7 +331,7 @@ cl_boot(int argc, char **argv)
cl_core.null_string = make_constant_base_string("");
cl_core.null_stream = @make_broadcast_stream(0);
cl_core.null_stream = Cnil; /* Filled in file.d */
cl_core.system_properties =
cl__make_hash_table(@'equal', MAKE_FIXNUM(1024), /* size */