anchor.diff:                 (process-opt-initial-reference orb (pop args)))
                 ((equal option "-ORBDefaultInitRef")
                  (setf (orb-default-initial-reference orb) (pop args)))
  +              ((equal option "-ORBPort")
  +               (setf (orb-port orb) (parse-arg-integer (pop args))))
                 ((string-starts-with option "-ORB")
                  (pop args))
                 (t (push option new-args)))))
  
positive.code:                 :element-type '(unsigned-byte 8))))
  
  (defun decode-objkey-string (string)
    (with-output-to-string (out)
      (loop with state = 0
            for ch across string
  
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
  