From 30cfc8fe95478dc0d68db27e6ed264dd8b2c3bc1 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 6 May 2005 20:36:31 +0000
Subject: [PATCH] Don't signal a reader-error when *read-suppress* is true when
 reading a list.

---
 code/reader.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/code/reader.lisp b/code/reader.lisp
index aeec21055..82ae7f07e 100644
--- a/code/reader.lisp
+++ b/code/reader.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.55 2005/04/30 12:35:21 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.56 2005/05/06 20:36:31 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -655,7 +655,9 @@
 	    (let ((nextchar (read-char stream t)))
 	      (cond ((token-delimiterp nextchar)
 		     (cond ((eq listtail thelist)
-			    (%reader-error stream "Nothing appears before . in list."))
+			    (if *read-suppress*
+				(return-from read-list nil)
+				(%reader-error stream "Nothing appears before . in list.")))
 			   ((whitespacep nextchar)
 			    (setq nextchar (flush-whitespace stream))))
 		     (rplacd listtail
-- 
GitLab