anchor.diff:    (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))
  -  (output-netstring (format nil "~D" n) #\# stream))
  +  (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 1l0)))
  -
  +  (format stream "~f" (float n 1d0)))
   
   
   (defun dump-tnetstring-hash (h stream)
  
positive.code: 	  ,@b))
  
  (defun parse-list (stream length)
    (declare (type unsigned-byte length))
    (if (= length 0)
      nil
      (with-partial-file (stream length)
  
negative.code:   (when (with-input-from-string (s "hello") (file-position s 2))
      (push :string-seek *features*)))
  
  (declaim (optimize (speed 3) (safety 0)))
  
  (defun make-keyword (key)
    (intern (camel-case-to-lisp key)
            (find-package 'keyword)))
  
  
  ;Could switch code-char to an ASCII digit table since there are only 10 values
  