anchor.diff:    (let ((eltype (op:content_type tc))
           (len (op:length tc)))
       (let ((arr (make-array len)))
  -      (loop for i below len 
  -            do (setf (aref arr i) (unmarshal eltype buffer)))
  +      ;; (map-into arr #'unmarshal (repeated eltype) (repeated buffer))
  +      (dotimes (i len)
  +        (setf (aref arr i) (unmarshal eltype buffer)))
         arr)))
   
   
  
positive.code: (define-typecode typecode-typecode
    :kind :tk_typecode
    :constant corba:tc_typecode)
  
  
  ;;;; Fixed 
  
negative.code: 
  (defmethod unmarshal ((tc alias-typecode) buffer)
    (unmarshal (op:content_type tc) buffer))
  
  
  