From 267be3903c6f3be8820dac186017bc54d930acdc Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 5 Nov 2011 20:17:18 +0100 Subject: [PATCH] ecl_princ_char() now returns the character --- src/c/print.d | 3 ++- src/h/external.h | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/c/print.d b/src/c/print.d index a26d2ba92..762208cd5 100644 --- a/src/c/print.d +++ b/src/c/print.d @@ -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; } diff --git a/src/h/external.h b/src/h/external.h index a1db93e52..5e5c303b6 100755 --- a/src/h/external.h +++ b/src/h/external.h @@ -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);