anchor.diff:  
   (defmethod struct-get ((struct CORBA:struct) (field string))
     (struct-get struct (lispy-name field)))
  -
  -(defmethod any-typecode ((struct CORBA:struct))
  -  (get-typecode (type-id struct)))
  -
  -(defmethod any-value ((struct CORBA:struct))
  -  struct)
  -
   
   ;; Interface:
   (defun struct-typecode (id name &rest fields)
  
positive.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)
  
  
negative.code:               (mapcar (lambda (x) (list (car x) (cdr x)))
                        (fields obj)))
      (print-unreadable-object (obj stream :type t)
        (format stream "~A~:{~_ ~A=~S~}"
                (type-id obj)
                (map 'list (lambda (pair) (list (car pair) (cdr pair)))
                     (fields obj))))))
  