anchor.diff:    (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
  +                                   ("Linefeed" . 10)
                                      ("Page" . 12)
                                      ("Return" . 13)
                                      ("Space" . 32)
  
positive.code: (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."
    (typecase object
      (integer
       object)
  
negative.code:   '(or
      code-point-int
      standard-code-point
      (and standard-char
       (not (member #\Newline)))
      semi-standard-char
      (satisfies generic-code-point-int)))
  
  