Fix a typo. In comma_reader, PEEK-CHAR should be called with the stream to

be read.

src/c/backq.d

@@ -257,7 +257,8 @@ cl_object comma_reader(cl_object in, cl_object c)
 
 	if (backq_level <= 0)
 		FEerror("A comma has appeared out of a backquote.", 0);
-	c = cl_peek_char(0); /* Read character but skip spaces & complain at EOF */
+	/* Read character but skip spaces & complain at EOF */
+	c = cl_peek_char(2,Ct,in);
 	if (c == CODE_CHAR('@@')) {
 		x = @'si::,@';
 		read_char(in);

src/c/read.d

@@ -1407,10 +1407,13 @@ do_read_delimited_list(cl_object d, cl_object strm)
 			break;
 		}
 	}
-#ifdef CRLF
+#ifdef ECL_NEWLINE_IS_CRLF	/* From \r\n, ignore \r */
 	if (cl_token->string.fillp > 0 &&
 	    cl_token->string.self[cl_token->string.fillp-1] == '\r')
 		cl_token->string.fillp--;
+#endif
+#ifdef ECL_NEWLINE_IS_LFCR	/* From \n\r, ignore \r */
+	cl_read_char(strm);
 #endif
 	@(return copy_simple_string(cl_token) eof)
 @)

src/h/config.h.in

@@ -129,6 +129,10 @@ typedef unsigned @CL_FIXNUM_TYPE@ cl_hashkey;
 /* float.h for epsilons, maximum real numbers, etc			*/
 #undef HAVE_FLOAT_H
 
+/* what characters are used to mark beginning of new line		*/
+#undef ECL_NEWLINE_IS_CRLF
+#undef ECL_NEWLINE_IS_LFCR
+
 /*
  * PARAMETERS:
  */

src/h/internal.h

@@ -48,7 +48,6 @@ extern const struct {
 #define OPEN_RW	"w+b"
 #define OPEN_A	"ab"
 #define OPEN_RA	"a+b"
-#define CRLF
 
 /* print.d */