diff -r 81aa27926362 cl-pdf/config.lisp
--- a/cl-pdf/config.lisp	Sat Feb 23 21:17:20 2008 -0800
+++ b/cl-pdf/config.lisp	Tue Feb 26 09:53:43 2008 -0800
@@ -18,16 +18,40 @@
 #+clisp
 (setf *default-file-encoding*  (ext:make-encoding :charset charset:iso-8859-1))
 
-;; Map exceptional but useful characters to the [0-255] range for a single-byte encoding
-;; Add more here...
+;; Map exceptional but useful characters to the [0-255] range for a
+;; cp-1252 based single-byte encoding. This map based on the table at
+;; ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1252.TXT
+;; should include all the characters occuring in cp-1252 that have a
+;; different numeric value than the corresponding Unicode code point.
+
 (defparameter *char-single-byte-codes*
- '((#.(code-char #x2013) . #x96)	; En dash: 8211 -> 150
-   (#.(code-char #x2014) . #x97)	; Em dash: 8212 -> 151
-   (#.(code-char #x2022) . #xB7)	; Bullet: 8226 -> 183
-   (#.(code-char #x2026) . #x85)	; Ellipsis: 8230 -> 133
-   (#.(code-char #x2039) . #x8B)	; Single left angle quotation mark: 8249 -> 139
-   (#.(code-char #x203A) . #x9B)	; Single right angle quotation mark: 8250 -> 155
-   (#.(code-char #x2122) . #x99)	; Trademark: 8482 -> 153
+  '((#.(code-char #x0152) . #x8C)   ; LATIN_CAPITAL_LIGATURE_OE
+    (#.(code-char #x0153) . #x9C)   ; LATIN_SMALL_LIGATURE_OE
+    (#.(code-char #x0160) . #x8A)   ; LATIN_CAPITAL_LETTER_S_WITH_CARON
+    (#.(code-char #x0161) . #x9A)   ; LATIN_SMALL_LETTER_S_WITH_CARON
+    (#.(code-char #x0178) . #x9F)   ; LATIN_CAPITAL_LETTER_Y_WITH_DIAERESIS
+    (#.(code-char #x017D) . #x8E)   ; LATIN_CAPITAL_LETTER_Z_WITH_CARON
+    (#.(code-char #x017E) . #x9E)   ; LATIN_SMALL_LETTER_Z_WITH_CARON
+    (#.(code-char #x0192) . #x83)   ; LATIN_SMALL_LETTER_F_WITH_HOOK
+    (#.(code-char #x02C6) . #x88)   ; MODIFIER_LETTER_CIRCUMFLEX_ACCENT
+    (#.(code-char #x02DC) . #x98)   ; SMALL_TILDE
+    (#.(code-char #x2013) . #x96)   ; EN_DASH
+    (#.(code-char #x2014) . #x97)   ; EM_DASH
+    (#.(code-char #x2018) . #x91)   ; LEFT_SINGLE_QUOTATION_MARK
+    (#.(code-char #x2019) . #x92)   ; RIGHT_SINGLE_QUOTATION_MARK
+    (#.(code-char #x201A) . #x82)   ; SINGLE_LOW-9_QUOTATION_MARK
+    (#.(code-char #x201C) . #x93)   ; LEFT_DOUBLE_QUOTATION_MARK
+    (#.(code-char #x201D) . #x94)   ; RIGHT_DOUBLE_QUOTATION_MARK
+    (#.(code-char #x201E) . #x84)   ; DOUBLE_LOW-9_QUOTATION_MARK
+    (#.(code-char #x2020) . #x86)   ; DAGGER
+    (#.(code-char #x2021) . #x87)   ; DOUBLE_DAGGER
+    (#.(code-char #x2022) . #x95)   ; BULLET
+    (#.(code-char #x2026) . #x85)   ; HORIZONTAL_ELLIPSIS
+    (#.(code-char #x2030) . #x89)   ; PER_MILLE_SIGN
+    (#.(code-char #x2039) . #x8B)   ; SINGLE_LEFT-POINTING_ANGLE_QUOTATION_MARK
+    (#.(code-char #x203A) . #x9B)   ; SINGLE_RIGHT-POINTING_ANGLE_QUOTATION_MARK
+    (#.(code-char #x20AC) . #x80)   ; EURO_SIGN
+    (#.(code-char #x2122) . #x99)   ; TRADE_MARK_SIGN
 ) )
 
 ;; Charset for strings mentioned outside content streams, e.g. in outlines.
