anchor.diff:                        (lambda (req buffer) (funcall output-func req buffer args))
                         input-func exceptions))))
   
  +(defun compute-static-get (sym)
  +  (let (op input-func)
  +    (lambda (obj)
  +      (unless input-func
  +        (multiple-value-bind (name type)
  +                             (symbol-attr-info sym)
  +          (setq op (getter-name name))
  +          (setq input-func
  +                (let ((mfun (unmarshal-function type)))
  +                  (lambda (req buffer)
  +                    (declare (ignore req))
  +                    (funcall mfun buffer))))))
  +      (do-static-call obj op t (lambda (req buffer) (declare (ignore req buffer)))
  +                      input-func nil))))
  +
  +
  +(defun compute-static-set (sym)
  +  (let (op output-func)
  +    (lambda (obj value)
  +      (unless output-func
  +        (multiple-value-bind (name type mode)
  +                             (symbol-attr-info sym)
  +          (assert (eql mode :attr_normal))
  +          (setq op (setter-name name))
  +          (setq output-func
  +                (let ((mfun (marshal-function type)))
  +                  (lambda (req buffer arg)
  +                    (declare (ignore req))
  +                    (funcall mfun arg buffer))))))
  +      (do-static-call obj op t 
  +                      (lambda (req buffer)
  +                        (funcall output-func req buffer value))
  +                      (lambda (req buffer) (declare (ignore req buffer)))
  +                      nil))))
  +
  +
   
   ;;; clorb-request.lisp ends here
  
positive.code:    (effective-profile
      :accessor request-effective-profile)
     (status
      :initarg :status                :initform nil
      :accessor request-status)
     (buffer
      :initarg :buffer                :initform nil
  
negative.code: ;;;; clorb-request.lisp -- Client Request
  ;; $Id: clorb-request.lisp,v 1.12 2004/02/08 19:18:57 lenst Exp $
  
  (in-package :clorb)
  
  