Update of /project/mcclim/cvsroot/mcclim/Backends/PostScript In directory clnet:/tmp/cvs-serv11247

Modified Files: sheet.lisp Log Message: Fix the postscript-test demo and table formatting

NEW-PAGE must set the stream cursor position to 0 0 even if we're only recording, not drawing. (Perhaps especially so).

--- /project/mcclim/cvsroot/mcclim/Backends/PostScript/sheet.lisp 2006/03/07 14:59:29 1.12 +++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/sheet.lisp 2006/03/07 15:43:44 1.13 @@ -148,8 +148,8 @@ ;; output, so all pages after the first are blank. But I don't ;; know quite what the original purpose of the call was, so, ;; FIXME. -- TPD 2005-12-23 - ;; (clear-output-record (stream-output-history stream)) - (setf (stream-cursor-position stream) (values 0 0)))) + #-(and) (clear-output-record (stream-output-history stream))) + (setf (stream-cursor-position stream) (values 0 0)))

;;;; Output Protocol