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