anchor.diff:         (- code #.(ascii-code #\0))))
   
   
  +(defun replace-ascii-characters (string bytes &key (newline *newline*) (start1 0) end1 (start2 0) (end2 (length bytes)))
  +  (loop
  +    :with newline := (input-newline newline)
  +    :with endd := (or end1 (length string))
  +    :with len := (- end2 start2)
  +    :with j := start2
  +    :for code := (aref bytes j)
  +    :for i :from start1 :below endd
  +    :while (< j end2)
  +    :do (if (<= sp code 126)
  +            (setf (aref string i) (aref *ascii-characters* (- code sp)))
  +            (case code
  +              ((#.cr)
  +               (ecase newline
  +                 ((:crlf) (if (and (< (1+ j) len) (= lf (aref bytes (1+ j))))
  +                              (progn (incf j)
  +                                     (setf (aref string i) #\newline))
  +                              (ascii-error code)))
  +                 ((:any)  (if (and (< (1+ j) len) (= lf (aref bytes (1+ j))))
  +                              (progn (incf j)
  +                                     (setf (aref string i) #\newline))
  +                              (setf (aref string i) #\newline)))
  +                 ((:cr)   (setf (aref string i) #\newline))
  +                 ((:lf)   (ascii-error code))))
  +              ((#.lf)
  +               (ecase newline
  +                 ((:any  :lf) (setf (aref string i) #\newline))
  +                 ((:crlf :cr) (ascii-error code))))
  +              (otherwise (ascii-error code))))
  +    :finally (return string)))
  +
   
   (defun ascii-string (bytes &key (newline *newline*) (start 0) (end (length bytes)))
     "
  
positive.code: ;;;;AUTHORS
  ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
  ;;;;MODIFICATIONS
  ;;;;    2012-04-20 <PJB> Added conditions;
  ;;;;                     Added :start and :stop to ASCII-STRING and ASCII-BYTES.
  ;;;;                     Added ASCII-CONTROL-CODE-P and ASCII-PRINTABLE-CODE-P.
  
negative.code:    "ASCII-CONTROL-CODE-P"    "ASCII-PRINTABLE-CODE-P"
     "ASCII-STRING" "ASCII-BYTES"  "ASCII-DISPATCH-MACRO"
     "READ-ASCII-LINE" "ASCII-FORMAT"
     "BYTES=" "BYTES/=" "BYTES<" "BYTES<=" "BYTES>=" "BYTES>"
     "REPLACE-ASCII-BYTES" "REPLACE-ASCII-CHARACTERS")
    (:documentation "
  
  Some ASCII code utilities, to process sequences of ASCII code bytes as
  