anchor.diff:        (let* ((typecode (if (stringp id-or-typecode)
                              (get-typecode id-or-typecode)
                            id-or-typecode))
  -             (fields 
  +             (fields
                 (multiple-value-bind (kind params)
                     (type-expand typecode)
                   (assert (eq kind :tk_struct))
  
positive.code: 
  (defun default-from-type (typecode)
    (ecase (typecode-kind typecode)
      ((:tk_ushort :tk_short :tk_ulong :tk_long :tk_float :tk_double 
        :tk_octet :tk_longlong :tk_ulonglong :tk_longdouble) 
       0)
      ((:tk_boolean) nil)
      ((:tk_char) #\Space)
  
negative.code: ;;;; clorb-struct.lisp -- CORBA Structure support
  ;; $Id: clorb-struct.lisp,v 1.6 2001/06/18 19:26:19 lenst Exp $
  
  (in-package :clorb)
  
  (defvar *specialized-structs*
    (make-hash-table :test #'equal))
  
  (defclass CORBA:struct ()
    ())
  