anchor.diff:  
   (defun decode-hex-string (string)
     (assert (evenp (length string)))
  -  (let ((ints 
  +  (let ((ints
            (loop for i from 0 below (length string) by 2
                  collect (parse-integer string :start i :end (+ i 2)
                                         :radix 16))))
  
positive.code:     (let ((addr-list '())
            (last-pos 0))
        (loop for comma-pos = (position #\, str :start last-pos)
              while comma-pos do 
              (push (subseq str last-pos comma-pos) addr-list)
              (setq last-pos (+ comma-pos 1)))
        (push (subseq str last-pos) addr-list)
        (values 
         (mapcar #'parse-obj-addr addr-list)
         key-string))))
  
  
negative.code: ;;;  interface ORB {				// PIDL
  
  (define-corba-class ORB ()
    :slots
    ((adaptor :initform nil :accessor adaptor)
     (active  :initarg :active  :accessor orb-active)
     (host    :initarg :host    :accessor orb-host)
  