anchor.diff:         maximum))
   
   
  -
  -
   ;;;| Status create_request (			
   ;;; _create_request in lisp mapping
   ;;;|     in Context	ctx,				
  
positive.code:    (forward :initform nil :initarg :forward :accessor object-forward)
     (forward-reset :initform nil :accessor object-forward-reset)))
  
  (defgeneric profile-short-desc (profile stream)
    (:method ((profile t) stream) (write-string "*" stream)))
  
  (defmethod print-object ((o corba:proxy) stream)
    (print-unreadable-object (o stream :type t)
  
negative.code:   :name "Object")
  
  
  ;;;| boolean is_nil();
  
  (define-method _is_nil ((x null))
    t)
  