anchor.diff:              ((< code #x180)
                (svref +unicode-a0-180-to-iso-8859-16+
                       (the fixnum (- code #xa0))))
  -            ((and (>= code #x218) (< code #x220))
  +            ((<= #x218 code #x21f)
                (svref +unicode-218-220-to-iso-8859-16+
                       (the fixnum (- code #x218))))
  -            ((and (>= code #x2018) (< code #x2020))
  +            ((< #x2018 code #x201f)
                (svref +unicode-2018-2020-to-iso-8859-16+
                       (the fixnum (- code #x2018))))
  +            ;; Euro sign
               ((= code #x20ac) #xa4))
         (handle-error)))
   
  
positive.code:             ((< code #x100)
               (svref +unicode-a0-100-to-iso-8859-15+
                      (the fixnum (- code #xa0))))
              ((and (>= code #x150) (< code #x180))
               (svref +unicode-150-180-to-iso-8859-15+
                      (the fixnum (- code #x150))))
              ((= code #x20ac) #xa4))
        (handle-error)))
  
  
negative.code:             ((< code #x180)
               (svref +unicode-a0-180-to-iso-8859-4+
                      (the fixnum (- code #xa0))))
              ((<= #x2c0 code #x2df)
               (svref +unicode-2c0-2e0-to-iso-8859-4+
                      (the fixnum (- code #x2c0)))))
        (handle-error)))
  