From f303e1ec2502a5f834445fed64a16796631e274c Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Mon, 10 Jun 2002 22:41:24 +0000
Subject: [PATCH] Rudi Schlatte noted that

    The Hyperspec says that the default for end is nil, but:

    * (write-string "bla" *standard-output* :start 0 :end nil)

    Type-error in KERNEL::OBJECT-NOT-FIXNUM-ERROR-HANDLER:
       NIL is not of type FIXNUM

Fix this and make the default for :END be NIL.  (Hmm, I suppose we
don't really have to default to NIL since NIL means the end of the
string anyway, but we should at least accept NIL as a valid :END
value.  I didn't do that.)
---
 code/stream.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/code/stream.lisp b/code/stream.lisp
index 2576d5b88..d503547f6 100644
--- a/code/stream.lisp
+++ b/code/stream.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/stream.lisp,v 1.49 2002/02/04 17:22:15 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.50 2002/06/10 22:41:24 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -566,9 +566,9 @@
 	(stream-fresh-line stream))))
 
 (defun write-string (string &optional (stream *standard-output*)
-			    &key (start 0) (end (length (the vector string))))
+			    &key (start 0) end)
   "Outputs the String to the given Stream."
-  (write-string* string stream start end))
+  (write-string* string stream start (or end (length (the vector string)))))
 
 (defun write-string* (string &optional (stream *standard-output*)
 			     (start 0) (end (length (the vector string))))
-- 
GitLab