anchor.diff:             (slot-makunbound tc 'keywords)))
   
   
  -
  -
  -
   ;;;; Accessing typecodes of defined types
   
   (defun symbol-typecode (symbol)
  
positive.code:     (make-instance class :kind kind :params params)))
  
  (defun typecode-kind (tc)
    (slot-value tc 'kind))
  
  (defun typecode-params (tc)
    (slot-value tc 'params))
  
  (defun (setf typecode-params) (params tc)
    (setf (slot-value tc 'params) params))
  
negative.code: 
  (defgeneric compute-marshal-function (tc)
    (:method ((tc CORBA:TypeCode))
             (error "Marshalling of ~S not implemented" (op:kind tc))))
  
  (defgeneric compute-unmarshal-function (tc)
    (:method ((tc CORBA:TypeCode))
             (error "Unmarshalling of ~S not implemented" (op:kind tc))))
  
  
  (defun marshal-function (tc)
  