anchor.diff:  NV-PAIRS is a list field names and field values."
     (let ((class (gethash id *specialized-structs*)))
       (if class
  -        (apply #'make-instance class 
  +        (apply #'make-instance class
                  (or nv-plist
                      (mapcan (lambda (x) (list (car x) (cdr x)))
                              nv-alist)))
  
positive.code: ;;; Macrology
  
  (defmacro define-corba-struct (name &key id members)
    (loop 
        for member in members
        for slot = (car member)
        for field = (lispy-name (symbol-name slot))
  
negative.code: ;; Interface:
  (defun struct-typecode (id name &rest fields)
    (make-typecode :tk_struct
                   id
                   (string (or name ""))
                   (coerce (loop for (name type) on fields by #'cddr
                               collect (list (string name) type))
  