From 3543b735074e25ddceaf61cda9a71beadb79b7cb Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Sat, 28 Aug 2004 05:13:35 +0000 Subject: [PATCH] COMPUTE-TAB-SIZE forgot to handle the case of :section-relative tabbing. --- code/pprint.lisp | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/code/pprint.lisp b/code/pprint.lisp index 1b8efc65d..50d1b10b4 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.36 2004/08/28 04:39:10 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.37 2004/08/28 05:13:35 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -389,11 +389,14 @@ (colnum (tab-colnum tab)) (colinc (tab-colinc tab))) (cond ((tab-relativep tab) - (unless (<= colinc 1) - (let ((newposn (+ column colnum))) - (let ((rem (rem newposn colinc))) - (unless (zerop rem) - (incf colnum (- colinc rem)))))) + (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)))))))) colnum) ((< column (+ colnum origin)) (- (+ colnum origin) column)) -- GitLab