From bb7b6f81a187a970884fb0bbcf3565348624bc35 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Mon, 14 Jan 2008 22:13:52 +0000
Subject: [PATCH] Fixed error of reader for commas

---
 src/CHANGELOG         | 3 +++
 src/c/read.d          | 4 ++--
 src/lsp/config.lsp.in | 2 +-
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index ce7030171..839c32aa6 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -25,6 +25,9 @@ ECL 0.9k:
 
  - The bignums produced by RANDOM did not have enough random bits.
 
+ - ECL formerly accepted spaces between the comma and the @ and . characters
+   in expressions like ,@ or ,.
+
 ;;; Local Variables: ***
 ;;; mode:text ***
 ;;; fill-column:79 ***
diff --git a/src/c/read.d b/src/c/read.d
index cd7b6e5da..a1e8f274c 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -577,8 +577,8 @@ cl_object comma_reader(cl_object in, cl_object c)
 
 	if (backq_level <= 0)
 		FEreader_error("A comma has appeared out of a backquote.", in, 0);
-	/* Read character but skip spaces & complain at EOF */
-	c = cl_peek_char(2,Ct,in);
+	/* Read character & complain at EOF */
+	c = cl_peek_char(2,Cnil,in);
 	if (c == CODE_CHAR('@@')) {
 		x = @'si::unquote-splice';
 		ecl_read_char(in);
diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in
index df462e8dd..dbe4f7379 100644
--- a/src/lsp/config.lsp.in
+++ b/src/lsp/config.lsp.in
@@ -24,7 +24,7 @@ Returns, as a string, the location of the machine on which ECL runs."
 (defun lisp-implementation-version ()
   "Args:()
 Returns the version of your ECL as a string."
-  "@PACKAGE_VERSION@ (CVS 2008-01-12 15:13)")
+  "@PACKAGE_VERSION@ (CVS 2008-01-14 22:35)")
 
 (defun machine-type ()
   "Args: ()