anchor.diff:    (coerce
      (loop :for code-point-int :from 0 :to 127
            :for char := (typecase code-point-int
  -                        ((member 10)
  -                         #\Newline)
                           ((integer 32 126)
                            (char +graphic-and-space-standard-chars+ (- code-point-int 32)))
                           (t
  
positive.code:   '(or
      code-point-int
      standard-code-point
      standard-char
      semi-standard-char
      (satisfies generic-code-point-int)))
  
  
negative.code: (defun code-point-int (object)
    "Return the code point integer designated for the given object, or nil.
  
  Note: #\Newline might or might not map to a code-point."
    (typecase object
      (integer
       object)
  