Revision: 4148 Author: hans URL: http://bknr.net/trac/changeset/4148

Fix some small bugs.

U trunk/thirdparty/cl-pdf/pdf-base.lisp U trunk/thirdparty/cl-pdf/pdf-parser.lisp U trunk/thirdparty/cl-pdf/pdf.lisp

Modified: trunk/thirdparty/cl-pdf/pdf-base.lisp =================================================================== --- trunk/thirdparty/cl-pdf/pdf-base.lisp 2008-12-21 11:21:37 UTC (rev 4147) +++ trunk/thirdparty/cl-pdf/pdf-base.lisp 2008-12-21 14:07:37 UTC (rev 4148) @@ -155,6 +155,7 @@ (write-char #) *page-stream*))

(defmethod write-to-page ((char character) (encoding unicode-encoding) &optional escape) + (declare (ignore escape)) (write-char #< *page-stream*) (format *page-stream* "~4,'0x" (char-code char)) (write-char #> *page-stream*))

Modified: trunk/thirdparty/cl-pdf/pdf-parser.lisp =================================================================== --- trunk/thirdparty/cl-pdf/pdf-parser.lisp 2008-12-21 11:21:37 UTC (rev 4147) +++ trunk/thirdparty/cl-pdf/pdf-parser.lisp 2008-12-21 14:07:37 UTC (rev 4148) @@ -495,8 +495,7 @@ (*root-page* (root-page *document*)) (*outlines-stack* (list (outline-root *document*))) (*page* nil) - (*page-number* 0) - (*name-counter* 100)) + (*page-number* 0)) (add-doc-info *document* :creator ,creator :author ,author :title ,title :subject ,subject :keywords ,keywords) ,@body))

Modified: trunk/thirdparty/cl-pdf/pdf.lisp =================================================================== --- trunk/thirdparty/cl-pdf/pdf.lisp 2008-12-21 11:21:37 UTC (rev 4147) +++ trunk/thirdparty/cl-pdf/pdf.lisp 2008-12-21 14:07:37 UTC (rev 4148) @@ -16,7 +16,7 @@ (defvar *page-stream*) (defvar *pdf-stream*) (defvar *xrefs*) -(defvar *name-counter*) +(defvar *name-counter* 100)

(defun gen-name (prefix) (format nil "~a~d" prefix (incf *name-counter*)))