anchor.diff:         :name ,(op:name x)
          :type ,(target-type (op:original_type_def x) target)
          :typecode ,(target-typecode (op:original_type_def x) target) )))
  +
   
   (defmethod target-code ((const CORBA:ConstantDef) (target stub-target))
     (unless (and (eq :tk_enum (op:kind (op:type const)))
  
positive.code:     (write-char #\Space)
      (pprint-exit-if-list-exhausted)
      (write (pprint-pop))
      (loop
        (pprint-exit-if-list-exhausted)
        (write-char #\Space)
  
negative.code:                (get-normal-response handler)))))))
  
  
  (defmethod target-invoke-static ((def CORBA:IRObject) target)
    (declare (ignore target))
    nil)
  
  
  
  
  ;;;; Stub code generator
  
  (defclass all-target (servant-target static-stub-target)
    ())
  
  
  