anchor.diff:  	(declare (type stream stream))
   	(let* 
   	    ((length (get-ns-length stream))
  -	     (position (file-position stream))
  +	     (position (the fixnum (file-position stream)))
   	     (seek (file-position stream (+ position length)))
   	     (payload-type (read-char stream)))
   	  (declare (type fixnum position length))
  
positive.code: 
  (defun get-ns-length (stream)
    (loop
       with total = 0
       for c = (read-char stream)
       when (eq c #\:) return total
         do (setq total (+ (- (char-code c) (char-code #\0)) (* total 10)))))
  
negative.code:   (write-sequence data stream)
    (write-char identifier stream))
  
  (defun dump-tnetstring-fixnum (n stream)
    (declare (type fixnum n)
  	   (type stream stream))
    (let ((length 
  	 (loop with length of-type fixnum = (if (< n 0) 2 1)
  	    with mult of-type integer = 10
  	    with n of-type fixnum = (if (= n most-negative-fixnum) most-positive-fixnum (abs n))
  	    while (<= mult n)
  	    do (setq mult (* 10 mult) length (+ 1 length))
  	    finally (return length))))
      (format stream "~D" length)
      (write-char #\: stream)
      (format stream "~D" n)
      (write-char #\# stream)))
  
  (defun dump-tnetstring-int (n stream)
    (declare (type stream stream)
  	   (type integer n))
    (if (typep n 'fixnum)
        (dump-tnetstring-fixnum n stream)
        (output-netstring (format nil "~D" n) #\# stream)))
  
  
  (defun dump-tnetstring-float (n stream)
    (declare (type stream stream)
  	   (type real n))
    (format stream "~f" (float n 1d0)))
  
  
  (defun dump-tnetstring-hash (h stream)
  