anchor.diff:    (aref (fss-data fake-stream) (+ (fss-pos fake-stream) offset 1)))
   
   (defun fss-consume (fake-stream count)
  +  (declare (type fixnum count))
     (setf (fss-pos fake-stream) (+ count (fss-pos fake-stream))))
   
   (defun fss-read-sequence (seq str)
  +  (declare (type array seq))
     (let ((l (length seq)))
     (dotimes (i l)
       (setf (aref seq i) (fss-read-char str)))))
  
positive.code: 	      (let ((str (alloc-string payload-type length)))
  		(fss-read-sequence str stream)
  		str))
  	     ((#\# 35) (let ((str (alloc-string length)))
  			 (fss-read-sequence str stream)
  			 (parse-integer str)))
  	     ((#\} 125) (if (eq *dict-decode-type* :alist)
  
negative.code:       (with-output-to-string (s)
  	(dump-tnetstring-internal data s))
        (dump-tnetstring-internal data stream)))
  
  (let ((length-print (pprint-dispatch most-positive-fixnum)))
  (defun output-netstring (data identifier  stream)
  