From e4db1ad23cadccab93b5c0ec3141c778d3efa8c5 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 17 Jan 1992 19:56:29 +0000 Subject: [PATCH] Fixed FORMAT-JUSTIFICATION to assume the charpos is 0 if we can't tell from the stream. --- code/format.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/code/format.lisp b/code/format.lisp index c68b18e7e..601ea0a4f 100644 --- a/code/format.lisp +++ b/code/format.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.21 1991/12/16 10:04:05 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.22 1992/01/17 19:56:29 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2175,7 +2175,9 @@ mincol)) (padding (- length chars))) (when (and newline-prefix - (> (+ (lisp::charpos stream) length extra-space) line-len)) + (> (+ (or (lisp::charpos stream) 0) + length extra-space) + line-len)) (write-string newline-prefix stream)) (flet ((do-padding () (let ((pad-len (truncate padding num-gaps))) -- GitLab