Re: equivalent of "this" in goops?

[Greg Troxel]

Thanks very much for your suggestion.  I now have the following (but
haven't tested yet):

;; set of links
(define-class <linkset> (<sinew-object>)
  ;;  hash key is on other endpoint
  (link-hash #:accessor link-hash
             #:init-thunk (lambda () (make-hash-table 61)))
  (my-node #:accessor my-node #:init-keyword my-node))

(define-class <node> (<sinew-object>)
  [other stuff]

  ;; links is a set of links, findable by the other endpoint
  (links-ip #:accessor links-ip)
  (links-udaan #:accessor links-udaan))

;; override initialize in order to pass this to linkset constructor
(define-method (initialize (this <node>) initargs)
   (next-method)
   (slot-set this 'links-ip (make <linkset> #:my-node this))
   (slot-set this 'links-udaan (make <linkset> #:my-node this))

-- 
        Greg Troxel <address@hidden>