mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-14 05:12:38 -08:00
Fix two problems with RUN-PROGRAM: Missing :WAIT keyword and cl_core.null_stream not being input/output
This commit is contained in:
parent
4adaa528de
commit
eb548bfd4a
3 changed files with 19 additions and 1 deletions
|
|
@ -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 ***
|
||||
|
|
|
|||
14
src/c/file.d
14
src/c/file.d
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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 */
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue