Changeset 3314

Show
Ignore:
Timestamp:
06/24/08 17:12:08 (7 months ago)
Author:
hans
Message:

Update CXML and CLOSURE-COMMON

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/thirdparty/closure-common/.git/FETCH_HEAD

    r3108 r3314  
    11bab2e05f9c13c2754b936e2ef1f480b0243ee3a2        not-for-merge   branch 'dlichteblau' of git://repo.or.cz/closure-common 
    2 4ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a              branch 'master' of git://repo.or.cz/closure-common 
     2469511713ae2b6a0016278fef1efd8b986e97f31              branch 'master' of git://repo.or.cz/closure-common 
    33bc3a666248c0a7aaa72afaea5a065290299eb555        not-for-merge   branch 'origin' of git://repo.or.cz/closure-common 
  • trunk/thirdparty/closure-common/.git/logs/HEAD

    r3108 r3314  
    110000000000000000000000000000000000000000 4ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a Hans Huebner <hans@netzhansa.com> 1210314282 +0000 
     24ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a 469511713ae2b6a0016278fef1efd8b986e97f31 Hans Huebner <hans@jasmin.headcraft.de> 1214327269 +0000      pull : Fast forward 
  • trunk/thirdparty/closure-common/.git/logs/refs/heads/master

    r3108 r3314  
    110000000000000000000000000000000000000000 4ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a Hans Huebner <hans@netzhansa.com> 1210314282 +0000 
     24ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a 469511713ae2b6a0016278fef1efd8b986e97f31 Hans Huebner <hans@jasmin.headcraft.de> 1214327269 +0000      pull : Fast forward 
  • trunk/thirdparty/closure-common/.git/logs/refs/remotes/origin/master

    r3108 r3314  
    110000000000000000000000000000000000000000 4ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a Hans Huebner <hans@netzhansa.com> 1210314282 +0000    clone: from git://repo.or.cz/closure-common.git 
     24ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a 469511713ae2b6a0016278fef1efd8b986e97f31 Hans Huebner <hans@jasmin.headcraft.de> 1214327269 +0000      pull : fast forward 
  • trunk/thirdparty/closure-common/.git/refs/heads/master

    r3108 r3314  
    1 4ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a 
     1469511713ae2b6a0016278fef1efd8b986e97f31 
  • trunk/thirdparty/closure-common/.git/refs/remotes/origin/master

    r3108 r3314  
    1 4ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a 
     1469511713ae2b6a0016278fef1efd8b986e97f31 
  • trunk/thirdparty/closure-common/encodings-data.lisp

    r3108 r3314  
    8989  (add-name :iso-8859-9 "csISOLatin5")  
    9090 
     91  (add-name :iso-8859-13 "ISO-8859-13") 
     92 
    9193  (add-name :iso-8859-15 "ISO_8859-15")  
    9294  (add-name :iso-8859-15 "ISO-8859-15")  
     95  (add-name :iso-8859-15 "Latin-9")  
    9396 
    9497  (add-name :iso-8859-14 "ISO_8859-14")  
    9598  (add-name :iso-8859-14 "ISO-8859-14")  
     99  (add-name :iso-8859-14 "ISO_8859-14:1998")  
     100  (add-name :iso-8859-14 "iso-ir-199")  
     101  (add-name :iso-8859-14 "latin8")  
     102  (add-name :iso-8859-14 "iso-celtic")  
     103  (add-name :iso-8859-14 "l8")  
    96104 
    97105  (add-name :koi8-r "KOI8-R")  
    98106  (add-name :koi8-r "csKOI8R")  
    99107 
     108  (add-name :windows-1250 "windows-1250") 
     109 
     110  (add-name :windows-1251 "windows-1251") 
     111 
     112  (add-name :windows-1252 "windows-1252") 
     113 
     114  (add-name :windows-1253 "windows-1253") 
     115 
     116  (add-name :windows-1254 "windows-1254") 
     117 
     118  (add-name :windows-1255 "windows-1255") 
     119 
     120  (add-name :windows-1257 "windows-1257") 
     121 
    100122  (add-name :utf-8 "UTF-8")  
    101123 
     
    142164        :charset (find-charset :iso-8859-8))) 
    143165 
     166  (define-encoding :iso-8859-13 
     167      (make-simple-8-bit-encoding  
     168        :charset (find-charset :iso-8859-13))) 
     169 
    144170  (define-encoding :iso-8859-14 
    145171      (make-simple-8-bit-encoding  
     
    153179      (make-simple-8-bit-encoding  
    154180        :charset (find-charset :koi8-r))) 
     181 
     182  (define-encoding :windows-1250 
     183      (make-simple-8-bit-encoding  
     184        :charset (find-charset :windows-1250))) 
     185 
     186  (define-encoding :windows-1251 
     187      (make-simple-8-bit-encoding  
     188        :charset (find-charset :windows-1251))) 
     189 
     190  (define-encoding :windows-1252 
     191      (make-simple-8-bit-encoding  
     192        :charset (find-charset :windows-1252))) 
     193 
     194  (define-encoding :windows-1253 
     195      (make-simple-8-bit-encoding  
     196        :charset (find-charset :windows-1253))) 
     197 
     198  (define-encoding :windows-1254 
     199      (make-simple-8-bit-encoding  
     200        :charset (find-charset :windows-1254))) 
     201 
     202  (define-encoding :windows-1255 
     203      (make-simple-8-bit-encoding  
     204        :charset (find-charset :windows-1255))) 
     205 
     206  (define-encoding :windows-1257 
     207      (make-simple-8-bit-encoding  
     208        :charset (find-charset :windows-1257))) 
    155209 
    156210  (define-encoding :utf-8 :utf-8) 
     
    463517      #| #o36x |#   #x011F #x00F1 #x00F2 #x00F3 #x00F4 #x00F5 #x00F6 #x00F7 
    464518      #| #o37x |#   #x00F8 #x00F9 #x00FA #x00FB #x00FC #x0131 #x015F #x00FF) 
     519 
     520  (define-8-bit-charset :iso-8859-13 
     521      #| #o00x |#   #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 
     522      #| #o01x |#   #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 
     523      #| #o02x |#   #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 
     524      #| #o03x |#   #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 
     525      #| #o04x |#   #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 
     526      #| #o05x |#   #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 
     527      #| #o06x |#   #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 
     528      #| #o07x |#   #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 
     529      #| #o10x |#   #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 
     530      #| #o11x |#   #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 
     531      #| #o12x |#   #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 
     532      #| #o13x |#   #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 
     533      #| #o14x |#   #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 
     534      #| #o15x |#   #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 
     535      #| #o16x |#   #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 
     536      #| #o17x |#   #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 
     537      #| #o20x |#   #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF 
     538      #| #o21x |#   #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF 
     539      #| #o22x |#   #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF 
     540      #| #o23x |#   #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF 
     541      #| #o24x |#   #x00A0 #x201D #x00A2 #x00A3 #x00A4 #x201E #x00A6 #x00A7 
     542      #| #o25x |#   #x00D8 #x00A9 #x0156 #x00AB #x00AC #x00AD #x00AE #x00C6 
     543      #| #o26x |#   #x00B0 #x00B1 #x00B2 #x00B3 #x201C #x00B5 #x00B6 #x00B7 
     544      #| #o27x |#   #x00F8 #x00B9 #x0157 #x00BB #x00BC #x00BD #x00BE #x00E6 
     545      #| #o30x |#   #x0104 #x012E #x0100 #x0106 #x00C4 #x00C5 #x0118 #x0112 
     546      #| #o31x |#   #x010C #x00C9 #x0179 #x0116 #x0122 #x0136 #x012A #x013B 
     547      #| #o32x |#   #x0160 #x0143 #x0145 #x00D3 #x014C #x00D5 #x00D6 #x00D7 
     548      #| #o33x |#   #x0172 #x0141 #x015A #x016A #x00DC #x017B #x017D #x00DF 
     549      #| #o34x |#   #x0105 #x012F #x0101 #x0107 #x00E4 #x00E5 #x0119 #x0113 
     550      #| #o35x |#   #x010D #x00E9 #x017A #x0117 #x0123 #x0137 #x012B #x013C 
     551      #| #o36x |#   #x0161 #x0144 #x0146 #x00F3 #x014D #x00F5 #x00F6 #x00F7 
     552      #| #o37x |#   #x0173 #x0142 #x015B #x016B #x00FC #x017C #x017E #x2019) 
    465553 
    466554  (define-8-bit-charset :iso-8859-14 
     
    565653      #| #o36x |#   #x041F #x042F #x0420 #x0421 #x0422 #x0423 #x0416 #x0412 
    566654      #| #o37x |#   #x042C #x042B #x0417 #x0428 #x042D #x0429 #x0427 #x042A) 
     655 
     656  (define-8-bit-charset :windows-1250 
     657      #| #o00x |#   #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 
     658      #| #o01x |#   #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 
     659      #| #o02x |#   #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 
     660      #| #o03x |#   #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 
     661      #| #o04x |#   #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 
     662      #| #o05x |#   #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 
     663      #| #o06x |#   #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 
     664      #| #o07x |#   #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 
     665      #| #o10x |#   #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 
     666      #| #o11x |#   #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 
     667      #| #o12x |#   #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 
     668      #| #o13x |#   #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 
     669      #| #o14x |#   #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 
     670      #| #o15x |#   #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 
     671      #| #o16x |#   #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 
     672      #| #o17x |#   #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 
     673      #| #o20x |#   #x20AC #xFFFF #x201A #xFFFF #x201E #x2026 #x2020 #x2021 
     674      #| #o21x |#   #xFFFF #x2030 #x0160 #x2039 #x015A #x0164 #x017D #x0179 
     675      #| #o22x |#   #xFFFF #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 
     676      #| #o23x |#   #xFFFF #x2122 #x0161 #x203A #x015B #x0165 #x017E #x017A 
     677      #| #o24x |#   #x00A0 #x02C7 #x02D8 #x0141 #x00A4 #x0104 #x00A6 #x00A7 
     678      #| #o25x |#   #x00A8 #x00A9 #x015E #x00AB #x00AC #x00AD #x00AE #x017B 
     679      #| #o26x |#   #x00B0 #x00B1 #x02DB #x0142 #x00B4 #x00B5 #x00B6 #x00B7 
     680      #| #o27x |#   #x00B8 #x0105 #x015F #x00BB #x013D #x02DD #x013E #x017C 
     681      #| #o30x |#   #x0154 #x00C1 #x00C2 #x0102 #x00C4 #x0139 #x0106 #x00C7 
     682      #| #o31x |#   #x010C #x00C9 #x0118 #x00CB #x011A #x00CD #x00CE #x010E 
     683      #| #o32x |#   #x0110 #x0143 #x0147 #x00D3 #x00D4 #x0150 #x00D6 #x00D7 
     684      #| #o33x |#   #x0158 #x016E #x00DA #x0170 #x00DC #x00DD #x0162 #x00DF 
     685      #| #o34x |#   #x0155 #x00E1 #x00E2 #x0103 #x00E4 #x013A #x0107 #x00E7 
     686      #| #o35x |#   #x010D #x00E9 #x0119 #x00EB #x011B #x00ED #x00EE #x010F 
     687      #| #o36x |#   #x0111 #x0144 #x0148 #x00F3 #x00F4 #x0151 #x00F6 #x00F7 
     688      #| #o37x |#   #x0159 #x016F #x00FA #x0171 #x00FC #x00FD #x0163 #x02D9) 
     689 
     690  (define-8-bit-charset :windows-1251 
     691      #| #o00x |#   #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 
     692      #| #o01x |#   #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 
     693      #| #o02x |#   #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 
     694      #| #o03x |#   #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 
     695      #| #o04x |#   #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 
     696      #| #o05x |#   #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 
     697      #| #o06x |#   #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 
     698      #| #o07x |#   #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 
     699      #| #o10x |#   #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 
     700      #| #o11x |#   #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 
     701      #| #o12x |#   #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 
     702      #| #o13x |#   #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 
     703      #| #o14x |#   #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 
     704      #| #o15x |#   #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 
     705      #| #o16x |#   #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 
     706      #| #o17x |#   #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 
     707      #| #o20x |#   #x0402 #x0403 #x201A #x0453 #x201E #x2026 #x2020 #x2021 
     708      #| #o21x |#   #x20AC #x2030 #x0409 #x2039 #x040A #x040C #x040B #x040F 
     709      #| #o22x |#   #x0452 #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 
     710      #| #o23x |#   #xFFFF #x2122 #x0459 #x203A #x045A #x045C #x045B #x045F 
     711      #| #o24x |#   #x00A0 #x040E #x045E #x0408 #x00A4 #x0490 #x00A6 #x00A7 
     712      #| #o25x |#   #x0401 #x00A9 #x0404 #x00AB #x00AC #x00AD #x00AE #x0407 
     713      #| #o26x |#   #x00B0 #x00B1 #x0406 #x0456 #x0491 #x00B5 #x00B6 #x00B7 
     714      #| #o27x |#   #x0451 #x2116 #x0454 #x00BB #x0458 #x0405 #x0455 #x0457 
     715      #| #o30x |#   #x0410 #x0411 #x0412 #x0413 #x0414 #x0415 #x0416 #x0417 
     716      #| #o31x |#   #x0418 #x0419 #x041A #x041B #x041C #x041D #x041E #x041F 
     717      #| #o32x |#   #x0420 #x0421 #x0422 #x0423 #x0424 #x0425 #x0426 #x0427 
     718      #| #o33x |#   #x0428 #x0429 #x042A #x042B #x042C #x042D #x042E #x042F 
     719      #| #o34x |#   #x0430 #x0431 #x0432 #x0433 #x0434 #x0435 #x0436 #x0437 
     720      #| #o35x |#   #x0438 #x0439 #x043A #x043B #x043C #x043D #x043E #x043F 
     721      #| #o36x |#   #x0440 #x0441 #x0442 #x0443 #x0444 #x0445 #x0446 #x0447 
     722      #| #o37x |#   #x0448 #x0449 #x044A #x044B #x044C #x044D #x044E #x044F) 
     723 
     724  (define-8-bit-charset :windows-1252 
     725      #| #o00x |#   #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 
     726      #| #o01x |#   #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 
     727      #| #o02x |#   #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 
     728      #| #o03x |#   #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 
     729      #| #o04x |#   #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 
     730      #| #o05x |#   #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 
     731      #| #o06x |#   #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 
     732      #| #o07x |#   #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 
     733      #| #o10x |#   #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 
     734      #| #o11x |#   #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 
     735      #| #o12x |#   #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 
     736      #| #o13x |#   #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 
     737      #| #o14x |#   #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 
     738      #| #o15x |#   #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 
     739      #| #o16x |#   #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 
     740      #| #o17x |#   #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 
     741      #| #o20x |#   #x20AC #xFFFF #x201A #x0192 #x201E #x2026 #x2020 #x2021 
     742      #| #o21x |#   #x02C6 #x2030 #x0160 #x2039 #x0152 #xFFFF #x017D #xFFFF 
     743      #| #o22x |#   #xFFFF #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 
     744      #| #o23x |#   #x02DC #x2122 #x0161 #x203A #x0153 #xFFFF #x017E #x0178 
     745      #| #o24x |#   #x00A0 #x00A1 #x00A2 #x00A3 #x00A4 #x00A5 #x00A6 #x00A7 
     746      #| #o25x |#   #x00A8 #x00A9 #x00AA #x00AB #x00AC #x00AD #x00AE #x00AF 
     747      #| #o26x |#   #x00B0 #x00B1 #x00B2 #x00B3 #x00B4 #x00B5 #x00B6 #x00B7 
     748      #| #o27x |#   #x00B8 #x00B9 #x00BA #x00BB #x00BC #x00BD #x00BE #x00BF 
     749      #| #o30x |#   #x00C0 #x00C1 #x00C2 #x00C3 #x00C4 #x00C5 #x00C6 #x00C7 
     750      #| #o31x |#   #x00C8 #x00C9 #x00CA #x00CB #x00CC #x00CD #x00CE #x00CF 
     751      #| #o32x |#   #x00D0 #x00D1 #x00D2 #x00D3 #x00D4 #x00D5 #x00D6 #x00D7 
     752      #| #o33x |#   #x00D8 #x00D9 #x00DA #x00DB #x00DC #x00DD #x00DE #x00DF 
     753      #| #o34x |#   #x00E0 #x00E1 #x00E2 #x00E3 #x00E4 #x00E5 #x00E6 #x00E7 
     754      #| #o35x |#   #x00E8 #x00E9 #x00EA #x00EB #x00EC #x00ED #x00EE #x00EF 
     755      #| #o36x |#   #x00F0 #x00F1 #x00F2 #x00F3 #x00F4 #x00F5 #x00F6 #x00F7 
     756      #| #o37x |#   #x00F8 #x00F9 #x00FA #x00FB #x00FC #x00FD #x00FE #x00FF) 
     757 
     758  (define-8-bit-charset :windows-1253 
     759      #| #o00x |#   #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 
     760      #| #o01x |#   #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 
     761      #| #o02x |#   #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 
     762      #| #o03x |#   #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 
     763      #| #o04x |#   #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 
     764      #| #o05x |#   #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 
     765      #| #o06x |#   #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 
     766      #| #o07x |#   #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 
     767      #| #o10x |#   #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 
     768      #| #o11x |#   #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 
     769      #| #o12x |#   #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 
     770      #| #o13x |#   #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 
     771      #| #o14x |#   #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 
     772      #| #o15x |#   #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 
     773      #| #o16x |#   #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 
     774      #| #o17x |#   #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 
     775      #| #o20x |#   #x20AC #xFFFF #x201A #x0192 #x201E #x2026 #x2020 #x2021 
     776      #| #o21x |#   #xFFFF #x2030 #xFFFF #x2039 #xFFFF #xFFFF #xFFFF #xFFFF 
     777      #| #o22x |#   #xFFFF #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 
     778      #| #o23x |#   #xFFFF #x2122 #xFFFF #x203A #xFFFF #xFFFF #xFFFF #xFFFF 
     779      #| #o24x |#   #x00A0 #x0385 #x0386 #x00A3 #x00A4 #x00A5 #x00A6 #x00A7 
     780      #| #o25x |#   #x00A8 #x00A9 #xFFFF #x00AB #x00AC #x00AD #x00AE #x2015 
     781      #| #o26x |#   #x00B0 #x00B1 #x00B2 #x00B3 #x0384 #x00B5 #x00B6 #x00B7 
     782      #| #o27x |#   #x0388 #x0389 #x038A #x00BB #x038C #x00BD #x038E #x038F 
     783      #| #o30x |#   #x0390 #x0391 #x0392 #x0393 #x0394 #x0395 #x0396 #x0397 
     784      #| #o31x |#   #x0398 #x0399 #x039A #x039B #x039C #x039D #x039E #x039F 
     785      #| #o32x |#   #x03A0 #x03A1 #xFFFF #x03A3 #x03A4 #x03A5 #x03A6 #x03A7 
     786      #| #o33x |#   #x03A8 #x03A9 #x03AA #x03AB #x03AC #x03AD #x03AE #x03AF 
     787      #| #o34x |#   #x03B0 #x03B1 #x03B2 #x03B3 #x03B4 #x03B5 #x03B6 #x03B7 
     788      #| #o35x |#   #x03B8 #x03B9 #x03BA #x03BB #x03BC #x03BD #x03BE #x03BF 
     789      #| #o36x |#   #x03C0 #x03C1 #x03C2 #x03C3 #x03C4 #x03C5 #x03C6 #x03C7 
     790      #| #o37x |#   #x03C8 #x03C9 #x03CA #x03CB #x03CC #x03CD #x03CE #xFFFF) 
     791 
     792  (define-8-bit-charset :windows-1254 
     793      #| #o00x |#   #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 
     794      #| #o01x |#   #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 
     795      #| #o02x |#   #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 
     796      #| #o03x |#   #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 
     797      #| #o04x |#   #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 
     798      #| #o05x |#   #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 
     799      #| #o06x |#   #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 
     800      #| #o07x |#   #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 
     801      #| #o10x |#   #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 
     802      #| #o11x |#   #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 
     803      #| #o12x |#   #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 
     804      #| #o13x |#   #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 
     805      #| #o14x |#   #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 
     806      #| #o15x |#   #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 
     807      #| #o16x |#   #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 
     808      #| #o17x |#   #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 
     809      #| #o20x |#   #x20AC #xFFFF #x201A #x0192 #x201E #x2026 #x2020 #x2021 
     810      #| #o21x |#   #x02C6 #x2030 #x0160 #x2039 #x0152 #xFFFF #xFFFF #xFFFF 
     811      #| #o22x |#   #xFFFF #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 
     812      #| #o23x |#   #x02DC #x2122 #x0161 #x203A #x0153 #xFFFF #xFFFF #x0178 
     813      #| #o24x |#   #x00A0 #x00A1 #x00A2 #x00A3 #x00A4 #x00A5 #x00A6 #x00A7 
     814      #| #o25x |#   #x00A8 #x00A9 #x00AA #x00AB #x00AC #x00AD #x00AE #x00AF 
     815      #| #o26x |#   #x00B0 #x00B1 #x00B2 #x00B3 #x00B4 #x00B5 #x00B6 #x00B7 
     816      #| #o27x |#   #x00B8 #x00B9 #x00BA #x00BB #x00BC #x00BD #x00BE #x00BF 
     817      #| #o30x |#   #x00C0 #x00C1 #x00C2 #x00C3 #x00C4 #x00C5 #x00C6 #x00C7 
     818      #| #o31x |#   #x00C8 #x00C9 #x00CA #x00CB #x00CC #x00CD #x00CE #x00CF 
     819      #| #o32x |#   #x011E #x00D1 #x00D2 #x00D3 #x00D4 #x00D5 #x00D6 #x00D7 
     820      #| #o33x |#   #x00D8 #x00D9 #x00DA #x00DB #x00DC #x0130 #x015E #x00DF 
     821      #| #o34x |#   #x00E0 #x00E1 #x00E2 #x00E3 #x00E4 #x00E5 #x00E6 #x00E7 
     822      #| #o35x |#   #x00E8 #x00E9 #x00EA #x00EB #x00EC #x00ED #x00EE #x00EF 
     823      #| #o36x |#   #x011F #x00F1 #x00F2 #x00F3 #x00F4 #x00F5 #x00F6 #x00F7 
     824      #| #o37x |#   #x00F8 #x00F9 #x00FA #x00FB #x00FC #x0131 #x015F #x00FF) 
     825 
     826  (define-8-bit-charset :windows-1255 
     827      #| #o00x |#   #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 
     828      #| #o01x |#   #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 
     829      #| #o02x |#   #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 
     830      #| #o03x |#   #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 
     831      #| #o04x |#   #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 
     832      #| #o05x |#   #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 
     833      #| #o06x |#   #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 
     834      #| #o07x |#   #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 
     835      #| #o10x |#   #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 
     836      #| #o11x |#   #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 
     837      #| #o12x |#   #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 
     838      #| #o13x |#   #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 
     839      #| #o14x |#   #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 
     840      #| #o15x |#   #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 
     841      #| #o16x |#   #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 
     842      #| #o17x |#   #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 
     843      #| #o20x |#   #x20AC #xFFFF #x201A #x0192 #x201E #x2026 #x2020 #x2021 
     844      #| #o21x |#   #x02C6 #x2030 #xFFFF #x2039 #xFFFF #xFFFF #xFFFF #xFFFF 
     845      #| #o22x |#   #xFFFF #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 
     846      #| #o23x |#   #x02DC #x2122 #xFFFF #x203A #xFFFF #xFFFF #xFFFF #xFFFF 
     847      #| #o24x |#   #x00A0 #x00A1 #x00A2 #x00A3 #x00AA #x00A5 #x00A6 #x00A7 
     848      #| #o25x |#   #x00A8 #x00A9 #x00D7 #x00AB #x00AC #x00AD #x00AE #x203E 
     849      #| #o26x |#   #x00B0 #x00B1 #x00B2 #x00B3 #x00B4 #x00B5 #x00B6 #x00B7 
     850      #| #o27x |#   #x00B8 #x00B9 #x00F7 #x00BB #x00BC #x00BD #x00BE #x00BF 
     851      #| #o30x |#   #x05B0 #x05B1 #x05B2 #x05B3 #x05B4 #x05B5 #x05B6 #x05B7 
     852      #| #o31x |#   #x05B8 #x05B9 #xFFFF #x05BB #x05BC #x05BD #x05BE #x05BF 
     853      #| #o32x |#   #x05C0 #x05C1 #x05C2 #x05C3 #x05F0 #x05F1 #x05F2 #x05F3 
     854      #| #o33x |#   #x05F4 #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF 
     855      #| #o34x |#   #x05D0 #x05D1 #x05D2 #x05D3 #x05D4 #x05D5 #x05D6 #x05D7 
     856      #| #o35x |#   #x05D8 #x05D9 #x05DA #x05DB #x05DC #x05DD #x05DE #x05DF 
     857      #| #o36x |#   #x05E0 #x05E1 #x05E2 #x05E3 #x05E4 #x05E5 #x05E6 #x05E7 
     858      #| #o37x |#   #x05E8 #x05E9 #x05EA #xFFFF #xFFFF #x200E #x200F #xFFFF) 
     859 
     860  (define-8-bit-charset :windows-1257 
     861      #| #o00x |#   #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 
     862      #| #o01x |#   #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 
     863      #| #o02x |#   #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 
     864      #| #o03x |#   #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 
     865      #| #o04x |#   #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 
     866      #| #o05x |#   #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 
     867      #| #o06x |#   #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 
     868      #| #o07x |#   #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 
     869      #| #o10x |#   #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 
     870      #| #o11x |#   #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 
     871      #| #o12x |#   #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 
     872      #| #o13x |#   #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 
     873      #| #o14x |#   #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 
     874      #| #o15x |#   #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 
     875      #| #o16x |#   #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 
     876      #| #o17x |#   #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 
     877      #| #o20x |#   #x20AC #xFFFF #x201A #xFFFF #x201E #x2026 #x2020 #x2021 
     878      #| #o21x |#   #xFFFF #x2030 #xFFFF #x2039 #xFFFF #x00A8 #x02C7 #x00B8 
     879      #| #o22x |#   #xFFFF #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 
     880      #| #o23x |#   #xFFFF #x2122 #xFFFF #x203A #xFFFF #x00AF #x02DB #xFFFF 
     881      #| #o24x |#   #x00A0 #xFFFF #x00A2 #x00A3 #x00A4 #xFFFF #x00A6 #x00A7 
     882      #| #o25x |#   #x00D8 #x00A9 #x0156 #x00AB #x00AC #x00AD #x00AE #x00C6 
     883      #| #o26x |#   #x00B0 #x00B1 #x00B2 #x00B3 #x00B4 #x00B5 #x00B6 #x00B7 
     884      #| #o27x |#   #x00F8 #x00B9 #x0157 #x00BB #x00BC #x00BD #x00BE #x00E6 
     885      #| #o30x |#   #x0104 #x012E #x0100 #x0106 #x00C4 #x00C5 #x0118 #x0112 
     886      #| #o31x |#   #x010C #x00C9 #x0179 #x0116 #x0122 #x0136 #x012A #x013B 
     887      #| #o32x |#   #x0160 #x0143 #x0145 #x00D3 #x014C #x00D5 #x00D6 #x00D7 
     888      #| #o33x |#   #x0172 #x0141 #x015A #x016A #x00DC #x017B #x017D #x00DF 
     889      #| #o34x |#   #x0105 #x012F #x0101 #x0107 #x00E4 #x00E5 #x0119 #x0113 
     890      #| #o35x |#   #x010D #x00E9 #x017A #x0117 #x0123 #x0137 #x012B #x013C 
     891      #| #o36x |#   #x0161 #x0144 #x0146 #x00F3 #x014D #x00F5 #x00F6 #x00F7 
     892      #| #o37x |#   #x0173 #x0142 #x015B #x016B #x00FC #x017C #x017E #x02D9) 
    567893  ) 
    568894 
  • trunk/thirdparty/closure-common/package.lisp

    r3108 r3314  
    6666           #:ystream 
    6767           #:ystream-encoding 
     68           #:find-output-encoding 
    6869           #:close-ystream 
    6970           #:ystream-write-rune 
  • trunk/thirdparty/closure-common/ystream.lisp

    r3108 r3314  
    2525(defmacro until (test &body body) 
    2626  `(do () (,test) ,@body)) 
     27 
     28(defun find-output-encoding (name) 
     29  (when (stringp name) 
     30    (setf name (find-symbol (string-upcase name) :keyword))) 
     31  (cond 
     32    ((null name) 
     33     (warn "Unknown encoding ~A, falling back to UTF-8" name) 
     34     :utf-8) 
     35    ((find name '(:utf-8 :utf_8 :utf8)) 
     36     :utf-8) 
     37    #-rune-is-character 
     38    (t 
     39     (warn "Unknown encoding ~A, falling back to UTF-8" name) 
     40     :utf-8) 
     41    #+rune-is-character 
     42    (t 
     43     (handler-case 
     44         (babel-encodings:get-character-encoding name) 
     45       (error () 
     46         (warn "Unknown encoding ~A, falling back to UTF-8" name) 
     47         :utf-8))))) 
    2748 
    2849;;; ystream 
     
    84105  ;; 
    85106  (let ((tmp (make-rod 1))) 
    86     (setf (rune tmp 0) rune) 
     107    (setf (elt tmp 0) rune) 
    87108    (ystream-write-escapable-rod tmp ystream))) 
    88109 
  • trunk/thirdparty/cxml/.git/logs/HEAD

    r3082 r3314  
    110000000000000000000000000000000000000000 77d915505eac84c267f89ab308c61e937a367f45 Hans HÃŒbner <hans@hertha.local> 1210160156 +0200 
     277d915505eac84c267f89ab308c61e937a367f45 a1a95a4d03701050f71044fd9305d50cd6480c98 Hans Huebner <hans@jasmin.headcraft.de> 1214327116 +0000      pull : Fast forward 
  • trunk/thirdparty/cxml/.git/logs/refs/heads/master

    r3082 r3314  
    110000000000000000000000000000000000000000 77d915505eac84c267f89ab308c61e937a367f45 Hans HÃŒbner <hans@hertha.local> 1210160156 +0200 
     277d915505eac84c267f89ab308c61e937a367f45 a1a95a4d03701050f71044fd9305d50cd6480c98 Hans Huebner <hans@jasmin.headcraft.de> 1214327116 +0000      pull : Fast forward 
  • trunk/thirdparty/cxml/.git/logs/refs/remotes/origin/master

    r3082 r3314  
    110000000000000000000000000000000000000000 77d915505eac84c267f89ab308c61e937a367f45 Hans HÃŒbner <hans@hertha.local> 1210160155 +0200     clone: from git://repo.or.cz/cxml.git 
     277d915505eac84c267f89ab308c61e937a367f45 a1a95a4d03701050f71044fd9305d50cd6480c98 Hans Huebner <hans@jasmin.headcraft.de> 1214327096 +0000      pull : fast forward 
  • trunk/thirdparty/cxml/.git/refs/heads/master

    r3082 r3314  
    1 77d915505eac84c267f89ab308c61e937a367f45 
     1a1a95a4d03701050f71044fd9305d50cd6480c98 
  • trunk/thirdparty/cxml/.git/refs/remotes/origin/master

    r3082 r3314  
    1 77d915505eac84c267f89ab308c61e937a367f45 
     1a1a95a4d03701050f71044fd9305d50cd6480c98 
  • trunk/thirdparty/cxml/doc/index.xml

    r3082 r3314  
    4949        XPath 1.0 
    5050      </li> 
    51 <!-- 
    52       <li> 
    53         <a href="http://repo.or.cz/w/xuriella.git">Xuriella</a>: 
    54         XSLT 1.0 (work in progress) 
    55       </li> 
    56 --> 
     51      <li> 
     52        <a href="http://common-lisp.net/project/xuriella/">Xuriella</a>: 
     53        XSLT 1.0 
     54      </li> 
    5755      <li> 
    5856        <a href="http://common-lisp.net/project/closure/closure-html/">Closure 
     
    7876        Support for user-specified output encodings 
    7977        using <a href="http://common-lisp.net/project/babel/">Babel</a>. 
     78      </li> 
     79      <li> 
     80        More support for input encodings, thanks to Pierre Mai. 
    8081      </li> 
    8182      <li> 
  • trunk/thirdparty/cxml/test/misc.lisp

    r3082 r3314  
    2828      (doit #x10000 char-code-limit) 
    2929      (values))) 
     30 
     31;; <4824D34F.5000002@acceleration.net> 
     32(deftest chtml-encoding 
     33  (with-output-to-string (stream) 
     34   (let ((doc (dom:create-document 
     35             'rune-dom:implementation 
     36             nil nil 
     37             (dom:create-document-type 
     38              'rune-dom:implementation 
     39              "html" 
     40              "-//W3C//DTD XHTML 1.0 Transitional//EN" 
     41              "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd")))) 
     42     (dom:map-document (chtml:make-character-stream-sink stream) 
     43           doc 
     44           :include-xmlns-attributes nil 
     45           :include-doctype :full-internal-subset)))) 
  • trunk/thirdparty/cxml/xml/sax-handler.lisp

    r3082 r3314  
    293293                (:method ((handler t) ,@args) 
    294294                  (declare (ignore ,@args)) 
    295                   (warn "deprecated SAX default method used by a handler
     295                  (warn "deprecated SAX default method used by handler ~A
    296296                         that is not a subclass of SAX:ABSTRACT-HANDLER ~ 
    297                          or HAX:ABSTRACT-HANDLER"
     297                         or HAX:ABSTRACT-HANDLER" handler
    298298                  nil) 
    299299                (:method ((handler abstract-handler) ,@args) 
     
    422422  (:method ((handler t) sax-parser) 
    423423    (declare (ignore sax-parser)) 
    424     (warn "deprecated sax default method used by a handler
     424    (warn "deprecated sax default method used by handler ~A
    425425                          that is not a subclass of sax:abstract-handler ~ 
    426                           or hax:abstract-handler"
     426                          or hax:abstract-handler" handler
    427427    nil) 
    428428  (:method ((handler hax:abstract-handler) sax-parser) 
  • trunk/thirdparty/cxml/xml/unparse.lisp

    r3089 r3314  
    6969 
    7070 
    71  
    72 (defvar *suppress-text-newline* nil 
    73   "If t, suppress the next newline at the start of a TEXT node.") 
    74  
    7571;;;; SINK: an xml output sink 
    7672 
     
    117113              :fill-pointer 0)) 
    118114 
    119 (defun find-output-encoding (name) 
    120   (when (stringp name) 
    121     (setf name (find-symbol (string-upcase name) :keyword))) 
    122   (cond 
    123     ((null name) 
    124      (warn "Unknown encoding ~A, falling back to UTF-8" name) 
    125      :utf-8) 
    126     ((find name '(:utf-8 :utf_8 :utf8)) 
    127      :utf-8) 
    128     #-rune-is-character 
    129     (t 
    130      (warn "Unknown encoding ~A, falling back to UTF-8" name) 
    131      :utf-8) 
    132     #+rune-is-character 
    133     (t 
    134      (handler-case 
    135          (babel-encodings:get-character-encoding name) 
    136        (error () 
    137          (warn "Unknown encoding ~A, falling back to UTF-8" name) 
    138          :utf-8))))) 
    139  
    140115;; bisschen unschoen hier die ganze api zu duplizieren, aber die 
    141116;; ystreams sind noch undokumentiert 
     
    146121                       (ystream (,make-ystream ,@args))) 
    147122                  (setf (ystream-encoding ystream) 
    148                         (find-output-encoding encoding)) 
     123                        (runes:find-output-encoding encoding)) 
    149124                  (apply #'make-instance 
    150125                         'sink 
     
    416391  (unless (zerop (ystream-column (sink-ystream sink))) 
    417392    (sink-write-rune #/U+000A sink)             ;newline 
    418     (setf (ystream-column (sink-ystream sink)) 0))) 
     393    (indent sink))) 
    419394 
    420395(defun maybe-close-tag (sink) 
     
    424399      (sink-write-rune #/> sink)))) 
    425400 
    426 (defun maybe-indent (sink) 
    427   (when (zerop (ystream-column (sink-ystream sink))) 
    428     (indent sink))) 
    429  
    430 (defmethod sax:start-element ((sink sink) namespace-uri local-name qname attributes) 
     401(defmethod sax:start-element 
     402    ((sink sink) namespace-uri local-name qname attributes) 
    431403  (declare (ignore namespace-uri local-name)) 
    432404  (maybe-close-tag sink) 
     
    436408  (when (indentation sink) 
    437409    (sink-fresh-line sink) 
    438     (maybe-indent sink) 
    439410    (start-indentation-block sink)) 
    440411  (sink-write-rune #/< sink) 
     
    468439      (end-indentation-block sink) 
    469440      (unless (zerop (tag-n-children tag)) 
    470         (sink-fresh-line sink)) 
    471       (maybe-indent sink)) 
     441        (sink-fresh-line sink))) 
    472442    (cond 
    473443      ((tag-have-gt tag) 
     
    476446       (sink-write-rod '#.(string-rod ">") sink)) 
    477447      (t 
    478        (sink-write-rod #"/>" sink))) 
    479     (unless *suppress-text-newline* 
    480       (sink-fresh-line sink)))) 
     448       (sink-write-rod #"/>" sink))))) 
    481449 
    482450(defmethod sax:processing-instruction ((sink sink) target data) 
     
    503471          (not (canonical sink)) 
    504472          (not (search #"]]" data))) 
    505      (maybe-indent sink) 
    506      (sink-write-rod #"<![CDATA[" sink) 
    507      ;; XXX signal error if body is unprintable? 
    508      ;; zzz no, in that case, split into multiple CDATA sections 
    509      (map nil (lambda (c) (sink-write-rune c sink)) data) 
    510      (sink-write-rod #"]]>" sink)) 
     473      (when (indentation sink) 
     474        (sink-fresh-line sink)) 
     475      (sink-write-rod #"<![CDATA[" sink) 
     476      ;; XXX signal error if body is unprintable? 
     477      ;; zzz no, in that case, split into multiple CDATA sections 
     478      (map nil (lambda (c) (sink-write-rune c sink)) data) 
     479      (sink-write-rod #"]]>" sink)) 
    511480    (t 
    512481      (if (indentation sink) 
     
    551520        ((zerop n)) 
    552521        (pos 
    553          (if *suppress-text-newline* 
    554              (setf *suppress-text-newline* nil) 
    555              (sink-fresh-line sink)) 
    556          (maybe-indent sink) 
    557          (while (< pos n) 
    558            (let* ((w (or (position-if #'whitespacep data :start (1+ pos)) n)) 
    559                   (next (or (position-if-not #'whitespacep data :start w) n))) 
    560              (when need-whitespace-p 
    561                (cond 
    562                  ((< (+ (ystream-column (sink-ystream sink)) w (- pos)) 
    563</