mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 21:32:49 -08:00
Code Issues Projects Releases Packages Wiki Activity

ecl_princ_char() now returns the character

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-11-05 20:17:18 +01:00
parent 0d41a1de04
commit 267be3903c
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/print.d
View file

@ -395,7 +395,7 @@ ecl_princ_str(const char *s, cl_object strm)
writestr_stream(s, strm);
}
void
int
ecl_princ_char(int c, cl_object strm)
{
strm = _ecl_stream_or_default_output(strm);
@ -403,4 +403,5 @@ ecl_princ_char(int c, cl_object strm)
if (c == '\n') {
ecl_force_output(strm);
}
return c;
}

2
src/h/external.h
View file

@ -1452,7 +1452,7 @@ extern ECL_API cl_object ecl_print(cl_object obj, cl_object strm);
extern ECL_API cl_object ecl_terpri(cl_object strm);
extern ECL_API void ecl_write_string(cl_object strng, cl_object strm);
extern ECL_API void ecl_princ_str(const char *s, cl_object sym);
extern ECL_API void ecl_princ_char(int c, cl_object sym);
extern ECL_API int ecl_princ_char(int c, cl_object sym);
extern ECL_API cl_fixnum ecl_print_level(void);
extern ECL_API cl_fixnum ecl_print_length(void);