anchor.diff:          (find-package :clorb)
           (find-package :op)))
   
  -(defun stub-code (object)
  -  (when (stringp object)
  -    (setq object (lookup-name object)))
  -  (let ((target (make-instance 'stub-target)))
  -    (let ((code (target-code object target))
  -          (ignored-packages *stub-code-ignored-packages*))
  -      `(,@(loop for package in (slot-value target 'packages)
  -                unless (member package ignored-packages)
  -                collect `(defpackage ,(package-name package) (:use)))
  -        (export (,@(slot-value target 'symbols)))
  -        ,code))))
  -
  -(defun gen-stub-file (object filename &key package-def dynamic-stubs)
  -  (with-open-file (*standard-output* filename :direction :output :if-exists :supersede)
  -    (let* ((target (make-instance 'stub-target :dynamic-stubs dynamic-stubs))
  -           (code (target-code object target)))
  -      (pprint '(in-package :clorb))
  -      (when package-def
  -        (loop for package in (slot-value target 'packages)
  -                unless (member package *stub-code-ignored-packages*)
  -                do (terpri)
  -                   (pprint (make-allways-eval
  -                            (make-target-ensure-package package target)))))
  -      (dolist (x (remove nil (cdr code)))
  -        (terpri)
  -        (pprint x))
  -      (terpri))))
  -
  -
  -
  -(defun gen-skel-file (object filename &key dynamic-servant package-def)
  -  (with-open-file (*standard-output* filename :direction :output :if-exists :supersede)
  -    (let* ((target (make-instance 'servant-target :dynamic-servant dynamic-servant))
  -           (code (target-code object target)))
  -      (pprint '(in-package :clorb))
  -      (when package-def
  -        (loop for package in (slot-value target 'packages)
  -                unless (member package *stub-code-ignored-packages*)
  -                do (terpri)
  -                (pprint (make-allways-eval
  -                         (make-target-ensure-package package target)))))
  -      (dolist (x (remove nil (cdr code)))
  -        (terpri)
  -        (pprint x))
  -      (terpri))))
  +(defmethod target-ensure-packages ((target code-target))
  +  (make-always-eval
  +   (make-progn 
  +    (loop for package in (slot-value target 'packages)
  +          unless (member package *stub-code-ignored-packages*)
  +          collect (make-target-ensure-package package target)))))
   
   
   
positive.code:                 (:pk_short  'unmarshal-short)
                  (:pk_ushort 'unmarshal-ushort)
                  (:pk_octet  'unmarshal-octet)
                  (:pk_boolean 'unmarshal-bool))))
      (if func
        `(,func ,buffer)
        (call-next-method))))
  
negative.code:     (call-next-method))))
  
  
  (defun in-param-list (params)
    (loop for p in params
          unless (eq (op:mode p) :param_out)
          collect (param-symbol p)))
  
  
  (defmethod target-code ((opdef CORBA:OperationDef) (target static-stub-target))
    (let* ((params (coerce (op:params opdef) 'list))
           (in-params (loop for p in params unless (eq :param_out (op:mode p)) collect p))
           (out-params (loop for p in params unless (eq :param_in (op:mode p)) collect p)))
  