anchor.diff:  (declaim (inline ascii-printable-code-p))
   (defun ascii-printable-code-p (code)
     "RETURN:  Whether CODE is the code of an ASCII printable character."
  -  (<= 32 code 126))
  +  (<= sp code (1- del)))
   
   
   (declaim (inline ascii-control-code-p))
   (defun ascii-control-code-p (code)
     "RETURN:  Whether CODE is an ASCII control code."
  -  (or (<= 0 code 31) (= 127 code)))
  +  (or (<= nul code (1- sp)) (= del code)))
   
   
   
  
positive.code:          and both CR and LF are mapped to #\newline.
  "
    (cond
      ((<= sp code 126)             (aref *ascii-characters* (- code sp)))
      ((or (= code cr) (= code lf)) #\newline)
      (t                            (ascii-error code))))
  
  
negative.code: 
  (defun test ()
    "
  DO:     test the ascii package; signal an error if something is wrong.
  RETURN: :success
  "
    (loop
       :for ch :across *ascii-characters*
  