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