mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-25 05:51:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

cosmetic: some indent fixes

Browse source
This commit is contained in:
Daniel Kochmanski 2017-10-11 10:27:01 +02:00
parent a7e376c0b5
commit e42d95d41a
2 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/c/file.d
View file

@ -3099,7 +3099,9 @@ set_stream_elt_type(cl_object stream, cl_fixnum byte_size, int flags,
flags &= ~ECL_STREAM_SIGNED_BYTES;
t = @'unsigned-byte';
}
flags = parse_external_format(stream, external_format, flags);
if (external_format != ECL_NIL) {
flags = parse_external_format(stream, external_format, flags);
}
stream->stream.ops->read_char = eformat_read_char;
stream->stream.ops->write_char = eformat_write_char;
switch (flags & ECL_STREAM_FORMAT) {
@ -3264,12 +3266,10 @@ si_stream_external_format_set(cl_object stream, cl_object format)
#endif
{
cl_object elt_type = ecl_stream_element_type(stream);
unlikely_if (elt_type != @'character' &&
elt_type != @'base-char')
FEerror("Cannot change external format"
"of binary stream ~A", 1, stream);
set_stream_elt_type(stream, stream->stream.byte_size,
stream->stream.flags, format);
unlikely_if (elt_type != @'character' && elt_type != @'base-char') {
FEerror("Cannot change external format of binary stream ~A", 1, stream);
}
set_stream_elt_type(stream, stream->stream.byte_size, stream->stream.flags, format);
}
break;
default:

4
src/lsp/process.lsp
View file

@ -209,8 +209,8 @@
(when piped-pairs
#+threads
(let ((thread (external-process-%pipe process)))
(mp:process-preset thread #'pipe-streams process piped-pairs)
(mp:process-enable thread))
(mp:process-preset thread #'pipe-streams process piped-pairs)
(mp:process-enable thread))
#-threads
(if wait
(pipe-streams process piped-pairs)