anchor.diff:    (or (cond ((< code #xa0) code)
               ((< code #x180)
                (svref +unicode-a0-180-to-iso-8859-10+
  -                    (the fixnum (- code #xa0))))
  +                    (the ub8 (- code #xa0))))
               ;; Horizontal bar
               ((= code #x2015) #xbd))
         (handle-error)))
  
positive.code:   (or (cond ((< code #xa0) code)
              ((< code #xc0)
               (svref +unicode-a0-c0-to-iso-8859-7+
                      (the fixnum (- code #xa0))))
              ((<= #x378 code #x3cf)
               (svref +unicode-378-3d0-to-iso-8859-7+
                      (the fixnum (- code #x378))))
              ((<= #x2010 code #x201f)
               (svref +unicode-2010-2020-to-iso-8859-7+
                      (the fixnum (- code #x2010))))
              ((<= #x201c code #x20af)
               (svref +unicode-20ac-20b0-to-iso-8859-7+
                      (the fixnum (- code #x20ac)))))
        (handle-error)))
  
  (define-constant +iso-8859-7-to-unicode+
  
negative.code:   (or (cond ((< code #xa0) code)
              ((< code #xf8)
               (svref +unicode-a0-f8-to-iso-8859-8+
                      (the ub8 (- code #xa0))))
              ((<= #x5d0 code #x5ef)
               (svref +unicode-5d0-5f0-to-iso-8859-8+
                      (the ub8 (- code #x5d0))))
              ((<= #x2008 code #x201f)
               (svref +unicode-2008-2018-to-iso-8859-8+
                      (the ub8 (- code #x2008)))))
        (handle-error)))
  
  (define-constant +iso-8859-8-to-unicode+
  