Update of /project/closure/cvsroot/closure/src/renderer In directory common-lisp.net:/tmp/cvs-serv22515/src/renderer

Modified Files: renderer2.lisp tables.lisp Log Message: tables.lisp isn't loaded by the .asd file. Move *debug-tables* to renderer2.lisp instead.

Date: Mon Aug 8 21:28:21 2005 Author: crhodes

Index: closure/src/renderer/renderer2.lisp diff -u closure/src/renderer/renderer2.lisp:1.12 closure/src/renderer/renderer2.lisp:1.13 --- closure/src/renderer/renderer2.lisp:1.12 Tue Jul 19 22:42:09 2005 +++ closure/src/renderer/renderer2.lisp Mon Aug 8 21:28:20 2005 @@ -4,7 +4,7 @@ ;;; Created: somewhen late 2002 ;;; Author: Gilbert Baumann gilbert@base-engineering.com ;;; License: MIT style (see below) -;;; $Id: renderer2.lisp,v 1.12 2005/07/19 20:42:09 emarsden Exp $ +;;; $Id: renderer2.lisp,v 1.13 2005/08/08 19:28:20 crhodes Exp $ ;;; --------------------------------------------------------------------------- ;;; (c) copyright 1997-2003 by Gilbert Baumann

@@ -368,6 +368,7 @@ chunks) ;their chunks

(defparameter *debug-tags* nil) +(defparameter *debug-tables* t)

(defun chunk-debug-name (chunk) (format nil (if (bounding-chunk-halfp chunk) @@ -4968,6 +4969,10 @@

;; $Log: renderer2.lisp,v $ +;; Revision 1.13 2005/08/08 19:28:20 crhodes +;; tables.lisp isn't loaded by the .asd file. Move *debug-tables* to +;; renderer2.lisp instead. +;; ;; Revision 1.12 2005/07/19 20:42:09 emarsden ;; More removal of spurious debugging output, and conditionalization of ;; some output on *debug-tables*

Index: closure/src/renderer/tables.lisp diff -u closure/src/renderer/tables.lisp:1.4 closure/src/renderer/tables.lisp:1.5 --- closure/src/renderer/tables.lisp:1.4 Mon Jul 11 17:57:56 2005 +++ closure/src/renderer/tables.lisp Mon Aug 8 21:28:20 2005 @@ -49,8 +49,6 @@ ;;fixme: doc nil)

-(defparameter *debug-tables* t) - ;; We need to distinguish two models: ;; a. tables with fixed width ;; b. tables with dynamic width (width = :auto)