anchor.diff:  ;;;; Stub Target
   
   (defclass stub-target (code-target)
  -  ((dynamic-stubs
  -    :initarg :dynamic-stubs
  -    :initform nil
  -    :reader target-dynamic-stubs)))
  +  ())
  +
  +
  +(defclass static-stub-target (stub-target)
  +  ())
  +
  +
   
   (defmethod target-code ((x CORBA:Contained) (target stub-target))
     (declare (ignore target))
     (warn "Can't generate code for ~A of kind ~S"
           (op:name x)
           (op:def_kind x)))
  +
   
   (defmethod target-code ((x CORBA:AliasDef) (target stub-target))
     (let ((symbol (scoped-target-symbol target x)))
  
positive.code: ;; ----------------------------------------------------------------------
  ;;;; Configure the pretty printer
  ;; ----------------------------------------------------------------------
  
  (set-pprint-dispatch '(cons (member define-method))
                       (pprint-dispatch '(defmethod foo ()) ))
  
  (defun pprint-def-and-keys (*standard-output* list)
    (pprint-logical-block (nil list :prefix "(" :suffix ")")
  
negative.code:                 (:pk_short  'unmarshal-short)
                  (:pk_ushort 'unmarshal-ushort)
                  (:pk_octet  'unmarshal-octet)
                  (:pk_boolean 'unmarshal-bool)
                  (:pk_any    'unmarshal-any)
                  (:pk_char   'unmarshal-char)
                  (:pk_float  'unmarshal-float)
                  (:pk_typecode 'unmarshal-typecode))))
      (if func
        `(,func ,buffer)
        (call-next-method))))
  