From 38cbf61ba6e593d18a75ceeb6e4da007b60a42d5 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 22 Oct 2004 16:42:02 +0000
Subject: [PATCH] The default value of EOF-ERROR-P arg for READ-FROM-STRING is
 supposed to be T.  Make it so.

Bug reported by Bruno Haible, cmucl-imp, 2004-10-22.
---
 code/reader.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/reader.lisp b/code/reader.lisp
index 488871eab..fee5feda7 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.48 2004/06/09 15:01:20 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.49 2004/10/22 16:42:02 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1672,7 +1672,7 @@ the end of the stream."
 (defvar read-from-string-spares ()
   "A resource of string streams for Read-From-String.")
 
-(defun read-from-string (string &optional eof-error-p eof-value
+(defun read-from-string (string &optional (eof-error-p t) eof-value
 				&key (start 0) end
 				preserve-whitespace)
   "The characters of string are successively given to the lisp reader
-- 
GitLab