anchor.diff:      (t                            (ascii-error code))))
   
   
  +(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))
  +
  +
  +(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)))
  +
  +
  +
   (declaim (inline code-ascii-digit-p))
   (defun code-ascii-digit-p (code)
     "
  
positive.code: 
  
  
  (defun ascii-string (bytes &key (newline *newline*))
    "
  DO:       Converts the ASCII bytes to a string. If there are control codes,
            an error is signaled.
  RETURN:   A string containing the characters encoded in the ASCII bytes.
  NEWLINE:  (member :crlf :cr :lf :any) ; the default is *NEWLINE*.
            If lone CR or LF are present, then an error is signaled.
  "
    (setf newline (input-newline newline))
    (loop
       :with len = (length bytes)
       :with result = (make-array len :element-type 'character
                                  :adjustable t :fill-pointer 0)
       :with i = 0
       :while (< i len)
       :do (let ((code (aref bytes i)))
             (if (<= sp code 126)
                 (vector-push (aref *ascii-characters* (- code sp)) result)
  
negative.code:      :finally (return result)))
  
  
  (defun ascii-bytes (string &key (newline *newline*) (start 0) (end (length string)))
    "
  RETURN:   A byte vector containing the ASCII codes of the characters in
            the string.
  