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

Guard code that is only used with CLOS streams (J. Jaakkola)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-11-19 18:09:33 +01:00
parent 6a27599282
commit f3f7947f5d
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/file.d
View file

@ -1139,6 +1139,7 @@ utf_8_encoder(cl_object stream, unsigned char *buffer, ecl_character c)
* CLOS STREAMS
*/
#ifdef ECL_CLOS_STREAMS
static cl_index
clos_stream_read_byte8(cl_object strm, unsigned char *c, cl_index n)
{
@ -1336,6 +1337,7 @@ const struct ecl_file_ops clos_stream_ops = {
clos_stream_column,
clos_stream_close
};
#endif /* ECL_CLOS_STREAMS */
/**********************************************************************
* STRING OUTPUT STREAMS