diff --git a/code/pprint.lisp b/code/pprint.lisp index 50d1b10b441dcf707fb6544523d97eda7ffda2e1..2dbcb92377a3011b037fe44174f24d907d976070 100644 --- a/code/pprint.lisp +++ b/code/pprint.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/pprint.lisp,v 1.37 2004/08/28 05:13:35 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.38 2004/08/30 21:40:17 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -389,14 +389,11 @@ (colnum (tab-colnum tab)) (colinc (tab-colinc tab))) (cond ((tab-relativep tab) - (cond ((tab-sectionp tab) - (setf colnum (* colinc (ceiling colnum colinc)))) - (t - (unless (<= colinc 1) - (let ((newposn (+ column colnum))) - (let ((rem (rem newposn colinc))) - (unless (zerop rem) - (incf colnum (- colinc rem)))))))) + (unless (<= colinc 1) + (let ((newposn (+ (- column origin) colnum))) + (let ((rem (rem newposn colinc))) + (unless (zerop rem) + (incf colnum (- colinc rem)))))) colnum) ((< column (+ colnum origin)) (- (+ colnum origin) column)) @@ -903,19 +900,15 @@ ATSIGN? is ignored (but allowed so that PPRINT-TABULAR can be used with the ~/.../ format directive." (declare (ignore atsign?)) - ;; I (rtoy) think the given tabsize is one less than the colinc - ;; parameter to pprint-tab. (16 is the default tabsize.) - (let ((colinc (1+ (or tabsize 16)))) - (pprint-logical-block (stream list - :prefix (if colon? "(") - :suffix (if colon? ")")) - (pprint-exit-if-list-exhausted) - (loop - (output-object (pprint-pop) stream) - (pprint-exit-if-list-exhausted) - (write-char #\space stream) - (pprint-tab :section-relative 0 colinc stream) - (pprint-newline :fill stream))))) + (pprint-logical-block (stream list + :prefix (if colon? "(") + :suffix (if colon? ")")) + (pprint-exit-if-list-exhausted) + (loop + (output-object (pprint-pop) stream) + (pprint-exit-if-list-exhausted) + (pprint-tab :section-relative 0 (or tabsize 16) stream) + (pprint-newline :fill stream)))) ;;;; Pprint-dispatch tables.