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