;;; -*- mode: fundamental; coding: utf-8; indent-tabs-mode: t; -*- ! |&#((?i)xa0);|  !­|&#((?i)xad);|­ ! |&#((?i)x2002);|  ! |&#((?i)x2003);|  ! |&#((?i)x2009);|  ;;; ;;; the following are auto-generated from the Wikipedia list of HTML and XML ;;; character entity references (as of 30-aug-08). essentially: ;;; ;;; (with-open-file (stream "xml.txt" ;;; :direction :input :external-format :utf-8) ;;; (with-open-file (out "xml.rpp" ;;; :direction :output :if-exists :supersede ;;; :external-format :utf-8) ;;; (loop ;;; for name = (read stream nil nil) ;;; for code = (read stream nil nil) ;;; while code do ;;; (format ;;; out ;;; "!&~a;|&#((?i)x~x);|&#~d~ ;;; ; ~c~%" ;;; name code code (code-char code))))) ;;; !"|&#((?i)x22);|" " !&|&#((?i)x26);|& & !'|&#((?i)x27);|' ' !<|&#((?i)x3c);|< < !>|&#((?i)x3e);|> > !¡|&#((?i)xa1);|¡ ¡ !¢|&#((?i)xa2);|¢ ¢ !£|&#((?i)xa3);|£ £ !¤|&#((?i)xa4);|¤ ¤ !¥|&#((?i)xa5);|¥ ¥ !¦|&#((?i)xa6);|¦ ¦ !§|&#((?i)xa7);|§ § !¨|&#((?i)xa8);|¨ ¨ !©|&#((?i)xa9);|© © !ª|&#((?i)xaa);|ª ª !«|&#((?i)xab);|« « !¬|&#((?i)xac);|¬ ¬ !®|&#((?i)xae);|® ® !¯|&#((?i)xaf);|¯ ¯ !°|&#((?i)xb0);|° ° !±|&#((?i)xb1);|± ± !²|&#((?i)xb2);|² ² !³|&#((?i)xb3);|³ ³ !´|&#((?i)xb4);|´ ´ !µ|&#((?i)xb5);|µ µ !¶|&#((?i)xb6);|¶ ¶ !·|&#((?i)xb7);|· · !¸|&#((?i)xb8);|¸ ¸ !¹|&#((?i)xb9);|¹ ¹ !º|&#((?i)xba);|º º !»|&#((?i)xbb);|» » !¼|&#((?i)xbc);|¼ ¼ !½|&#((?i)xbd);|½ ½ !¾|&#((?i)xbe);|¾ ¾ !¿|&#((?i)xbf);|¿ ¿ !À|&#((?i)xc0);|À À !Á|&#((?i)xc1);|Á Á !Â|&#((?i)xc2);|  !Ã|&#((?i)xc3);|à à !Ä|&#((?i)xc4);|Ä Ä !Å|&#((?i)xc5);|Å Å !Æ|&#((?i)xc6);|Æ Æ !Ç|&#((?i)xc7);|Ç Ç !È|&#((?i)xc8);|È È !É|&#((?i)xc9);|É É !Ê|&#((?i)xca);|Ê Ê !Ë|&#((?i)xcb);|Ë Ë !Ì|&#((?i)xcc);|Ì Ì !Í|&#((?i)xcd);|Í Í !Î|&#((?i)xce);|Î Î !Ï|&#((?i)xcf);|Ï Ï !Ð|&#((?i)xd0);|Ð Ð !Ñ|&#((?i)xd1);|Ñ Ñ !Ò|&#((?i)xd2);|Ò Ò !Ó|&#((?i)xd3);|Ó Ó !Ô|&#((?i)xd4);|Ô Ô !Õ|&#((?i)xd5);|Õ Õ !Ö|&#((?i)xd6);|Ö Ö !×|&#((?i)xd7);|× × !Ø|&#((?i)xd8);|Ø Ø !Ù|&#((?i)xd9);|Ù Ù !Ú|&#((?i)xda);|Ú Ú !Û|&#((?i)xdb);|Û Û !Ü|&#((?i)xdc);|Ü Ü !Ý|&#((?i)xdd);|Ý Ý !Þ|&#((?i)xde);|Þ Þ !ß|&#((?i)xdf);|ß ß !à|&#((?i)xe0);|à à !á|&#((?i)xe1);|á á !â|&#((?i)xe2);|â â !ã|&#((?i)xe3);|ã ã !ä|&#((?i)xe4);|ä ä !å|&#((?i)xe5);|å å !æ|&#((?i)xe6);|æ æ !ç|&#((?i)xe7);|ç ç !è|&#((?i)xe8);|è è !é|&#((?i)xe9);|é é !ê|&#((?i)xea);|ê ê !ë|&#((?i)xeb);|ë ë !ì|&#((?i)xec);|ì ì !í|&#((?i)xed);|í í !î|&#((?i)xee);|î î !ï|&#((?i)xef);|ï ï !ð|&#((?i)xf0);|ð ð !ñ|&#((?i)xf1);|ñ ñ !ò|&#((?i)xf2);|ò ò !ó|&#((?i)xf3);|ó ó !ô|&#((?i)xf4);|ô ô !õ|&#((?i)xf5);|õ õ !ö|&#((?i)xf6);|ö ö !÷|&#((?i)xf7);|÷ ÷ !ø|&#((?i)xf8);|ø ø !ù|&#((?i)xf9);|ù ù !ú|&#((?i)xfa);|ú ú !û|&#((?i)xfb);|û û !ü|&#((?i)xfc);|ü ü !ý|&#((?i)xfd);|ý ý !þ|&#((?i)xfe);|þ þ !ÿ|&#((?i)xff);|ÿ ÿ !Œ|&#((?i)x152);|Œ Œ !œ|&#((?i)x153);|œ œ !Š|&#((?i)x160);|Š Š !š|&#((?i)x161);|š š !Ÿ|&#((?i)x178);|Ÿ Ÿ !ƒ|&#((?i)x192);|ƒ ƒ !ˆ|&#((?i)x2c6);|ˆ ˆ !˜|&#((?i)x2dc);|˜ ˜ !Α|&#((?i)x391);|Α Α !Β|&#((?i)x392);|Β Β !Γ|&#((?i)x393);|Γ Γ !Δ|&#((?i)x394);|Δ Δ !Ε|&#((?i)x395);|Ε Ε !Ζ|&#((?i)x396);|Ζ Ζ !Η|&#((?i)x397);|Η Η !Θ|&#((?i)x398);|Θ Θ !Ι|&#((?i)x399);|Ι Ι !Κ|&#((?i)x39a);|Κ Κ !Λ|&#((?i)x39b);|Λ Λ !Μ|&#((?i)x39c);|Μ Μ !Ν|&#((?i)x39d);|Ν Ν !Ξ|&#((?i)x39e);|Ξ Ξ !Ο|&#((?i)x39f);|Ο Ο !Π|&#((?i)x3a0);|Π Π !Ρ|&#((?i)x3a1);|Ρ Ρ !Σ|&#((?i)x3a3);|Σ Σ !Τ|&#((?i)x3a4);|Τ Τ !Υ|&#((?i)x3a5);|Υ Υ !Φ|&#((?i)x3a6);|Φ Φ !Χ|&#((?i)x3a7);|Χ Χ !Ψ|&#((?i)x3a8);|Ψ Ψ !Ω|&#((?i)x3a9);|Ω Ω !α|&#((?i)x3b1);|α α !β|&#((?i)x3b2);|β β !γ|&#((?i)x3b3);|γ γ !δ|&#((?i)x3b4);|δ δ !ε|&#((?i)x3b5);|ε ε !ζ|&#((?i)x3b6);|ζ ζ !η|&#((?i)x3b7);|η η !θ|&#((?i)x3b8);|θ θ !ι|&#((?i)x3b9);|ι ι !κ|&#((?i)x3ba);|κ κ !λ|&#((?i)x3bb);|λ λ !μ|&#((?i)x3bc);|μ μ !ν|&#((?i)x3bd);|ν ν !ξ|&#((?i)x3be);|ξ ξ !ο|&#((?i)x3bf);|ο ο !π|&#((?i)x3c0);|π π !ρ|&#((?i)x3c1);|ρ ρ !ς|&#((?i)x3c2);|ς ς !σ|&#((?i)x3c3);|σ σ !τ|&#((?i)x3c4);|τ τ !υ|&#((?i)x3c5);|υ υ !φ|&#((?i)x3c6);|φ φ !χ|&#((?i)x3c7);|χ χ !ψ|&#((?i)x3c8);|ψ ψ !ω|&#((?i)x3c9);|ω ω !ϑ|&#((?i)x3d1);|ϑ ϑ !ϒ|&#((?i)x3d2);|ϒ ϒ !ϖ|&#((?i)x3d6);|ϖ ϖ !–|&#((?i)x2013);|– – !—|&#((?i)x2014);|— — !‘|&#((?i)x2018);|‘ ‘ !’|&#((?i)x2019);|’ ’ !‚|&#((?i)x201a);|‚ ‚ !“|&#((?i)x201c);|“ “ !”|&#((?i)x201d);|” ” !„|&#((?i)x201e);|„ „ !†|&#((?i)x2020);|† † !‡|&#((?i)x2021);|‡ ‡ !•|&#((?i)x2022);|• • !…|&#((?i)x2026);|… … !‰|&#((?i)x2030);|‰ ‰ !′|&#((?i)x2032);|′ ′ !″|&#((?i)x2033);|″ ″ !‹|&#((?i)x2039);|‹ ‹ !›|&#((?i)x203a);|› › !‾|&#((?i)x203e);|‾ ‾ !⁄|&#((?i)x2044);|⁄ ⁄ !€|&#((?i)x20ac);|€ € !ℑ|&#((?i)x2111);|ℑ ℑ !℘|&#((?i)x2118);|℘ ℘ !ℜ|&#((?i)x211c);|ℜ ℜ !™|&#((?i)x2122);|™ ™ !ℵ|&#((?i)x2135);|ℵ ℵ !←|&#((?i)x2190);|← ← !↑|&#((?i)x2191);|↑ ↑ !→|&#((?i)x2192);|→ → !↓|&#((?i)x2193);|↓ ↓ !↔|&#((?i)x2194);|↔ ↔ !↵|&#((?i)x21b5);|↵ ↵ !⇐|&#((?i)x21d0);|⇐ ⇐ !⇑|&#((?i)x21d1);|⇑ ⇑ !⇒|&#((?i)x21d2);|⇒ ⇒ !⇓|&#((?i)x21d3);|⇓ ⇓ !⇔|&#((?i)x21d4);|⇔ ⇔ !∀|&#((?i)x2200);|∀ ∀ !∂|&#((?i)x2202);|∂ ∂ !∃|&#((?i)x2203);|∃ ∃ !∅|&#((?i)x2205);|∅ ∅ !∇|&#((?i)x2207);|∇ ∇ !∈|&#((?i)x2208);|∈ ∈ !∉|&#((?i)x2209);|∉ ∉ !∋|&#((?i)x220b);|∋ ∋ !∏|&#((?i)x220f);|∏ ∏ !∑|&#((?i)x2211);|∑ ∑ !−|&#((?i)x2212);|− − !∗|&#((?i)x2217);|∗ ∗ !√|&#((?i)x221a);|√ √ !∝|&#((?i)x221d);|∝ ∝ !∞|&#((?i)x221e);|∞ ∞ !∠|&#((?i)x2220);|∠ ∠ !∧|&#((?i)x2227);|∧ ∧ !∨|&#((?i)x2228);|∨ ∨ !∩|&#((?i)x2229);|∩ ∩ !∪|&#((?i)x222a);|∪ ∪ !∫|&#((?i)x222b);|∫ ∫ !∴|&#((?i)x2234);|∴ ∴ !∼|&#((?i)x223c);|∼ ∼ !≅|&#((?i)x2245);|≅ ≅ !≈|&#((?i)x2248);|≈ ≈ !≠|&#((?i)x2260);|≠ ≠ !≡|&#((?i)x2261);|≡ ≡ !≤|&#((?i)x2264);|≤ ≤ !≥|&#((?i)x2265);|≥ ≥ !⊂|&#((?i)x2282);|⊂ ⊂ !⊃|&#((?i)x2283);|⊃ ⊃ !⊄|&#((?i)x2284);|⊄ ⊄ !⊆|&#((?i)x2286);|⊆ ⊆ !⊇|&#((?i)x2287);|⊇ ⊇ !⊕|&#((?i)x2295);|⊕ ⊕ !⊗|&#((?i)x2297);|⊗ ⊗ !⊥|&#((?i)x22a5);|⊥ ⊥ !⋅|&#((?i)x22c5);|⋅ ⋅ !⌈|&#((?i)x2308);|⌈ ⌈ !⌉|&#((?i)x2309);|⌉ ⌉ !⌊|&#((?i)x230a);|⌊ ⌊ !⌋|&#((?i)x230b);|⌋ ⌋ !⟨|&#((?i)x2329);|〈 〈 !⟩|&#((?i)x232a);|〉 〉 !◊|&#((?i)x25ca);|◊ ◊ !♠|&#((?i)x2660);|♠ ♠ !♣|&#((?i)x2663);|♣ ♣ !♥|&#((?i)x2665);|♥ ♥ !♦|&#((?i)x2666);|♦ ♦