anchor.diff:    (intern (camel-case-to-lisp key)
             (find-package 'keyword)))
   
  -
  -;Could switch code-char to an ASCII digit table since there are only 10 values
  -;we care about.  That would also fix the parse-integer ignores whitspace
  -;incompatibility.
  -(defun parse-bin-integer (vector)
  -  (parse-integer (map 'string #'code-char vector)))
  +#|
  +(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)) (* total 10)))))
  +       do (setq total (+ (- (char-code c) (char-code #\0)) (the fixnum (* total 10)))))) 
   
   #+string-seek(defun parse-payload (stream)
   	(declare (type stream stream))
  
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: 	(dump-tnetstring-internal data s))
        (dump-tnetstring-internal data stream)))
  
  (defun digit-to-char (x) (code-char (+ (char-code #\0) x)))
  
  (defun output-netstring (data identifier  stream)
    "Internal function used by dump-tnetstring"
    (declare (type string data)
  	   (type stream stream)
  	   (type character identifier))
    
    (format stream "~D" (length data))
    (write-char #\: stream)
    (write-sequence data stream)
  