anchor.diff:                 (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
  
positive.code:                (process-opt-initial-reference orb (pop args)))
                ((equal option "-ORBDefaultInitRef")
                 (setf (orb-default-initial-reference orb) (pop args)))
                ((string-starts-with option "-ORB")
                 (pop args))
                (t (push option new-args)))))
  
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
  