[mcclim-cvs] CVS mcclim/Backends/PostScript

[crhodes]

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