[bknr-cvs] hans changed trunk/thirdparty/cl-pdf/pdf

[BKNR Commits]

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)
     , at 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*)))