latin1-hack

[procedure] latin1-hack i

(def latin1-hack (i)
  (if (is i 128)      "EUR"    ; euros
      (is i 133)      "..."
      (<= 145 i 146)  #\'
      (<= 147 i 148)  #\"
      (is i 151)      "--"     ; long dash
      (is i 154)      #\S
      (is i 155)      #\>
      (is i 156)      "oe"
      (is i 158)      #\z
      (is i 159)      #\Y
      (is i 162)      #\c      ; cents
      (is i 163)      "GBP"    ; pounds
      (is i 165)      "JPY"    ; yen
      (is i 166)      #\|
      (is i 171)      "<<"
      (is i 187)      ">>"
      (<= 192 i 197)  #\A
      (is i 198)      "AE"
      (is i 199)      #\C
      (<= 200 i 203)  #\E
      (<= 204 i 207)  #\I
      (is i 209)      #\N
      (<= 210 i 214)  #\O
      (is i 215)      #\x
      (is i 216)      #\O
      (<= 217 i 220)  #\U
      (is i 221)      #\Y
      (is i 223)      "ss"
      (<= 224 i 229)  #\a
      (is i 230)      "ae"
      (is i 231)      #\c
      (<= 232 i 235)  #\e
      (<= 236 i 239)  #\i
      (is i 241)      #\n
      (<= 242 i 246)  #\o
      (is i 247)      #\/
      (is i 248)      #\o
      (<= 249 i 252)  #\u
      (in i 253 255)  #\y
      #\X
      ))