anchor.diff:  (define-typecode typecode-typecode
     :kind :tk_typecode
     :constant corba:tc_typecode)
  +
  +(define-typecode native-typecode
  +  :kind :tk_native
  +  :cdr-syntax (complex :tk_string :tk_string)
  +  :params (id name))
  +
  +(define-typecode abstract_interface-typecode
  +  :kind :tk_abstract_interface
  +  :cdr-syntax (complex :tk_string :tk_string)
  +  :params (id name))
  +
  +(define-typecode local_interface-typecode
  +  :kind :tk_local_interface
  +  :cdr-syntax (complex :tk_string :tk_string)
  +  :params (id name))
  +
   
   
   ;;;; Fixed 
  
positive.code:   (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)))
        arr)))
  
  
  
negative.code: 
  (defmethod unmarshal ((tc alias-typecode) buffer)
    (unmarshal (op:content_type tc) buffer))
  
  
  