anchor.diff:            NEWLINE parameter.
   NEWLINE:  (member :crlf :cr :lf) ; the default is *NEWLINE*.
   "
  -  (setf newline (output-newline newline))
  -  (loop
  -     :with bytes = (make-array
  -                    (+ (length string)
  -                       (if (eq newline :crlf) (count #\newline string) 0))
  -                    :element-type '(unsigned-byte 8))
  -     :with b = -1
  -     :for ch :across string
  -     :do (if (char= ch #\newline)
  -             (ecase newline
  -               ((:crlf) (setf (aref bytes (incf b)) cr
  -                              (aref bytes (incf b)) lf))
  -               ((:cr)   (setf (aref bytes (incf b)) cr))
  -               ((:lf)   (setf (aref bytes (incf b)) lf)))
  -             (setf (aref bytes (incf b)) (ascii-code ch)))
  -     :finally (return bytes)))
  +  (loop
  +    :with newline = (output-newline newline)
  +    :with bytes = (make-array
  +                   (+ (- end start)
  +                      (if (eq newline :crlf)
  +                          (count #\newline string :start start :end end)
  +                          0))
  +                   :element-type '(unsigned-byte 8))
  +    :with b = -1
  +    :for i :from start :below end
  +    :for ch = (aref string i)
  +    :do (if (char= ch #\newline)
  +            (ecase newline
  +              ((:crlf) (setf (aref bytes (incf b)) cr
  +                             (aref bytes (incf b)) lf))
  +              ((:cr)   (setf (aref bytes (incf b)) cr))
  +              ((:lf)   (setf (aref bytes (incf b)) lf)))
  +            (setf (aref bytes (incf b)) (ascii-code ch)))
  +    :finally (return bytes)))
   
   
   (defun ascii-dispatch-macro (stream sub-char argument)
  
positive.code:     (t                            (ascii-error code))))
  
  
  (declaim (inline code-ascii-digit-p))
  (defun code-ascii-digit-p (code)
    "
  
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.
  