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