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