anchor.diff:  
   
   ;; old:
  +;;#+unused-defuns
   (defun struct-typecode (id name &rest fields)
     (make-typecode :tk_struct
                    id
  
positive.code: ;;;; clorb-struct.lisp -- CORBA Structure support
  ;; $Id: clorb-struct.lisp,v 1.11 2002/10/05 11:17:23 lenst Exp $
  
  (in-package :clorb)
  
  
negative.code:           :typecode typecode
            :fields fields)))))
  
  
  (defun struct-in (typecode function arg)
    (let* ((params (typecode-params typecode))
  