Fixed error of reader for commas

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 ***

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);

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: ()