anchor.diff:      (standard-code-point
        (standard-code-point-int object))
       ((or standard-char semi-standard-char)
  -     (svref +map-char-code-to-code-point-int+ (char-code object)))
  -    ;; For implementations where Newline is different from Linefeed.
  -    ((member #\Newline)
  -     10)
  +     (gethash object +map-char-to-code-point-int+))
       (t
        (generic-code-point-int object))))
   
  
positive.code:   '(integer 0 #x10FFFF))
  
  
  (defparameter +named-char-map+
    (loop :for (name . code) :in '(("Backspace" . 8)
                                   ("Tab" . 9)
                                   ;; If #\Linefeed and #\Newline are
                                   ;; different characters code-point 10
                                   ;; should map to #\Linefeed.
                                   ("Linefeed" . 10)
                                   ("Newline" . 10)
                                   ("Page" . 12)
                                   ("Return" . 13)
                                   ("Space" . 32)
                                   ("Rubout" . 127))
          :for char := (name-char name)
          :when char
            :collect (cons char code)))
  
  
  (deftype semi+-standard-char ()
    `(member ,@(mapcar #'car +named-char-map+)))
  
  
  (defstruct (standard-code-point
  
negative.code:   (typep object 'code-point))
  
  
  (defparameter +graphic-and-space-standard-chars+
    " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~")
  
  
  (defparameter +map-char-to-code-point-int+
    (let ((h (make-hash-table)))
      ;; For implentations where #\Newline is different from #\Linefeed.
      (setf (gethash #\Newline h) 10)
      h))
  
  
  (defparameter +map-code-point-int-to-char+
    (coerce
     (loop :for code-point-int :from 0 :to 127
           :for char := (if (<= 32 code-point-int 126)
                            (char +graphic-and-space-standard-chars+ (- code-point-int 32))
                            (car (find code-point-int +semi-standard-char-name-map+ :key #'cdr)))
           :when char
             :do (setf (gethash char +map-char-to-code-point-int+) code-point-int)
           :collect char)
     'vector))
  
  
  (defun code-point-int (object)
  