anchor.diff:  (defun code-point-int (object)
     "Return the code point integer designated for the given object, or nil.
   
  -The values returned for character objects are implentation defined."
  +Note: #\Newline might or might not map to a code-point."
     (typecase object
       (integer
        object)
  
positive.code:   (defparameter +semi-standard-char-name-map+
      (loop :for (name . code) :in '(("Backspace" . 8)
                                     ("Tab" . 9)
                                     ;; Linefeed is implentation defined.
                                     ;; code-point 10 is always Newline
                                     ("Page" . 12)
                                     ("Return" . 13)
                                     ("Space" . 32)
  
negative.code:   (coerce
     (loop :for code-point-int :from 0 :to 127
           :for char := (typecase code-point-int
                          ((integer 32 126)
                           (char +graphic-and-space-standard-chars+ (- code-point-int 32)))
                          (t
  