[cl-pdf-devel] Problems upgrading... again

[Jonathon McKitrick]

On Fri, February 23, 2007 5:24 am, Levente Mészáros said:
> If you can send a short non working example we can take a look at it.

Thanks for your help.  Here you go:

(defun report-write-to-file (filename)
  (tt:with-document ()
    (let* ((header (lambda (pdf:*page*)
		     (compile-text () "Header")))
	   (footer (lambda (pdf:*page*)
		     (compile-text (:font "Times-Roman" :font-size 12)
		       (paragraph (:h-align :center)
			 "© 2007 JCM")
		       (paragraph (:h-align :center)
			 (verbatim (format nil "~D" pdf:*page-number*))))))
	   (content
	    (compile-text ()
	      (dotimes (i 10)
		(paragraph (:font "Times-Roman" :font-size *font-size*)
		  "Hello")))))
      (draw-pages content :margins '(108 72 72 72) :header header :footer
footer)
      (when pdf:*page* (finalize-page pdf:*page*))
      (pdf:write-document (concatenate 'string "web/data/" filename)))))




-- 
Jonathon McKitrick
Reed Larkey Group