anchor.diff:       (dump-tnetstring-int data stream))
       ((typep data 'hash-table)
        (dump-tnetstring-hash data stream))
  -    ((typep data 'real)
  -     (dump-tnetstring-float data stream))
  +    ;((typep data 'real)
  +     ;(dump-tnetstring-float data stream))
       ((null data)
        (write-sequence *nil-encode* stream))
       ((typep data 'list)
  
positive.code:   (multiple-value-bind (length payload-type) (parse-payload stream)
      (let ((returnme
  	   (ecase payload-type
  	     (#\# (let ((str (make-string length)))
  		    (read-sequence str stream)
  		    (parse-integer str)))
  	     (#\" (let ((str (make-string length)))
  		    (read-sequence str stream)
  		    str))
  	     (#\} (if (eq *dict-decode-type* :alist)
  		      (parse-dict-to-alist stream length)
  		      (parse-dict stream length)))
  
negative.code: 		    (file-position stream (+ (the fixnum (file-position stream)) (the fixnum length)))
  		    (= length 4)))
  	     (#\~ nil)
  	     )))
        (read-char stream)
        returnme)))
  
  