anchor.diff:  
   
   (defun decode-hex-string (string)
  +  (declare (string string))
     (assert (evenp (length string)))
     (let ((ints
            (loop for i from 0 below (length string) by 2
  
positive.code:     out))
  
  (defun parse-iiop-version (str)
    (multiple-value-bind (major pos)
        (parse-integer str :junk-allowed t)
      (assert (eq (char str pos) #\.))
  
negative.code:                (2 (setq state 0))))))
  
  (defun decode-objkey-vector (string)
    (declare (string string))
    (let ((out (make-array 50 :adjustable t :fill-pointer 0
                           :element-type 'CORBA:Octet)))
      (loop with state = 0
  