anchor.diff:    (or (cond ((< code #xa0) code)
               ((< code #x180)
                (svref +unicode-a0-180-to-iso-8859-16+
  -                    (the fixnum (- code #xa0))))
  +                    (the ub8 (- code #xa0))))
               ((<= #x218 code #x21f)
                (svref +unicode-218-220-to-iso-8859-16+
  -                    (the fixnum (- code #x218))))
  +                    (the ub8 (- code #x218))))
               ((< #x2018 code #x201f)
                (svref +unicode-2018-2020-to-iso-8859-16+
  -                    (the fixnum (- code #x2018))))
  +                    (the ub8 (- code #x2018))))
               ;; Euro sign
               ((= code #x20ac) #xa4))
         (handle-error)))
  
positive.code: (define-unibyte-decoder :iso-8859-15 (octet)
    (if (< octet #xa0)
        octet
        (svref +iso-8859-15-to-unicode+ (the fixnum (- octet #xa0)))))
  
  (define-character-encoding :iso-8859-16
      "An 8-bit, fixed-width character encoding in which codes
  
negative.code:   (or (cond ((< code #xa0) code)
              ((< code #x180)
               (svref +unicode-a0-180-to-iso-8859-4+
                      (the ub8 (- code #xa0))))
              ((<= #x2c0 code #x2df)
               (svref +unicode-2c0-2e0-to-iso-8859-4+
                      (the ub8 (- code #x2c0)))))
        (handle-error)))
  
  (define-constant +iso-8859-4-to-unicode+
  