anchor.diff:  ;;;; clorb-servant.lisp
  -;; $Id: clorb-servant.lisp,v 1.16 2004/02/03 17:17:07 lenst Exp $
  +;; $Id: clorb-servant.lisp,v 1.17 2004/06/09 21:14:44 lenst Exp $
   
   (in-package :clorb)
   
  
positive.code:    (reply-status          :initform nil       :accessor reply-status)
     (reply-buffer          :initform nil       :accessor reply-buffer)))
  
  
  (defmethod create-server-request ((orb clorb-orb) &rest initargs)
    (apply #'make-instance 'server-request 
           :the-orb orb initargs))
  
  
  
negative.code:     buffer))
  
  
  
  (defmethod get-normal-response ((req server-request))
    (get-request-response req :no_exception))
  
  