Enlarged the string buffers used for reading and parsing lisp data.

src/CHANGELOG

@@ -5,6 +5,10 @@ ECL 9.12.2:
 
  - RANDOM broken on 64-bits architectures.
 
+* Other changes:
+
+- Enlarged the string buffers used for reading and parsing lisp data.
+
 ECL 9.12.1:
 ===========
 

src/c/read.d

@@ -82,7 +82,7 @@ si_put_buffer_string(cl_object string)
 			l = TOKEN_STRING_FILLP(ECL_CONS_CAR(pool));
 		}
 		if (l < ECL_MAX_STRING_POOL_SIZE) {
-			if (TOKEN_STRING_DIM(string) > ECL_BUFFER_STRING_SIZE) {
+			if (TOKEN_STRING_DIM(string) > 32*ECL_BUFFER_STRING_SIZE) {
 				/* String has been enlarged. Cut it. */
 #ifdef ECL_UNICODE
 				string = ecl_alloc_adjustable_extended_string(ECL_BUFFER_STRING_SIZE);

src/h/config.h.in

@@ -395,7 +395,7 @@ typedef unsigned @CL_FIXNUM_TYPE@ cl_hashkey;
 
 /* We allocate a number of strings in a pool which is used to speed up reading */
 #define ECL_MAX_STRING_POOL_SIZE	10
-#define ECL_BUFFER_STRING_SIZE		128
+#define ECL_BUFFER_STRING_SIZE		4192
 
 /*
  * Macros that depend on these system features.