anchor.diff:  
   ;;;| unsigned 	long hash(in unsigned long maximum);
   ;;; _hash in lisp mapping
  +
  +(define-method _hash ((obj t) maximum)
  +  (rem (sxhash obj)
  +       maximum))
   
   (define-method _hash ((obj corba:proxy) maximum)
     (rem (if (object-profiles obj)
  
positive.code:         (t
           (error "Object of wrong type for narrowing"))))
  
  
  ;;; clorb-object.lisp ends here
  
negative.code: ;;;|     inout NamedValue result,				
  ;;;|     out Request	request,		
  ;;;|     in Flags        req_flags    );
  
  (define-method _create_request ((obj t) ctx operation arg_list result req_flags)
    (declare (ignore ctx operation arg_list result req_flags))
    (error 'CORBA:NO_IMPLEMENT :minor 4))
  
  
  (define-method _create_request ((obj CORBA:Object)
                                  ctx operation arg_list result req_flags)
  