anchor.diff:        collect `(define-method (setf ,slot) (val (s ,name))
                    (setf (slot-value s ',slot) val))
         into setters
  -      finally 
  -        (return 
  +      finally
  +        (return
             `(progn
                (defclass ,name (CORBA:struct) ,slot-defs)
                (defun ,name (&rest initargs)
  
positive.code:       (let* ((typecode (if (stringp id-or-typecode)
                             (get-typecode id-or-typecode)
                           id-or-typecode))
               (fields 
                (multiple-value-bind (kind params)
                    (type-expand typecode)
                  (assert (eq kind :tk_struct))
  
negative.code: NV-PAIRS is a list field names and field values."
    (let ((class (gethash id *specialized-structs*)))
      (if class
          (apply #'make-instance class
                 (or nv-plist
                     (mapcan (lambda (x) (list (car x) (cdr x)))
                             nv-alist)))
  