anchor.diff:  	     (#\" (let ((str (make-string length)))
   		    (read-sequence str stream)
   		    str))
  -	     (#\} (parse-dict stream length))
  +	     (#\} (parse-dict-to-alist stream length))
   	     (#\] (parse-list stream length))
   	     (#\! (progn
  -		    (file-position stream (+ (file-position stream) length))
  +		    (file-position stream (+ (the fixnum (file-position stream)) length))
   		    (= length 4)))
   	     (#\~ nil)
   	     (#\, (let ((str (make-string length)))
  
positive.code: 	do (dump-tnetstring-internal v s)))
     #\} stream))
  
  
  (defun dump-tnetstring-list (l stream)
    (declare (type list l)
  	   (type stream stream))
    (output-netstring
     (with-output-to-string (s)
       (loop for item in l do (dump-tnetstring-internal item s)))
     #\] stream))
  
  (defun dump-tnetstring-symbol (s stream)
    (declare (type symbol s)
  
negative.code:   (intern (camel-case-to-lisp key)
            (find-package 'keyword)))
  
  #|
  (defun make-keyword (key)
    (intern key 
            (find-package 'keyword)))
  |#
  
  (defun get-ns-length (stream)
    (loop
       with total fixnum = 0
       for c = (read-char stream)
       when (eq c #\:) return total
         do (setq total (+ (- (char-code c) (char-code #\0)) (the fixnum (* total 10)))))) 
  
  #+string-seek(defun parse-payload (stream)
  	(declare (type stream stream))
  