anchor.diff:     "FF" "CR" "SO" "SI" "DLE" "DC1" "DC2" "DC3" "DC4" "NAK" "SYN" "ETB"
      "CAN" "EM" "SUB" "ESC" "FS" "GS" "RS" "US" "DEL" "SP"
      "*NEWLINE*" "*ASCII-CHARACTERS*"  "*HEXADECIMAL-DIGITS*"
  +   "ENCODING-ERROR" "ENCODING-ERROR-CHARACTER"
  +   "ENCODING-ERROR-CODING-SYSTEM" "ENCODING-ERROR-MESSAGE"
  +   "DECODING-ERROR" "DECODING-ERROR-CODE"
  +   "DECODING-ERROR-CODING-SYSTEM" "DECODING-ERROR-MESSAGE"
      "ASCII-CODE"   "CODE-ASCII"   "CODE-ASCII-DIGIT-P"
  +   "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>")
     (:documentation "
       Some ASCII code utilities.
   
  -    Copyright Pascal Bourguignon 2006 - 2007
  +    Copyright Pascal Bourguignon 2006 - 2012
       
       This program is free software; you can redistribute it and/or
       modify it under the terms of the GNU General Public License
  
positive.code:           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)))
  
  
  (defun ascii-dispatch-macro (stream sub-char argument)
  
negative.code:     (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)
    "
  