anchor.diff:  	 (read (read-sequence array stream)))
       (if (= read length)
   	array
  -	(restart-case (error "EOF before sting end")
  +	(restart-case (error "EOF before string end")
   	  (continue () (adjust-array array read))))))
   
   (defun decode-string (stream)
  
positive.code: ;;; OTHER DEALINGS IN THE SOFTWARE.
  
  (in-package #:bencode)
  
  (defmacro restart-case-loop (form &body clauses)
    `(loop (restart-case (return ,form)
  
negative.code:     (must-read-char stream #\:)
      (must-read-octets stream length)))
  
  (defun decode-dictionary (stream)
    (must-read-char stream #\d)
    (loop with list
  