#:use-module (oop goops)
#:use-module (system foreign)
#:export (<irrlicht-base>
- wrapped-obj))
+ irr-pointer))
(define-class <irrlicht-base> ()
- (irr-ptr #:init-value %null-pointer #:accessor irrlicht-pointer #:init-keyword #:ptr)
- (irr-class #:init-value "irrlicht-base" #:getter irrlicht-class)
- (wrapped-obj #:accessor wrapped-obj #:allocation #:virtual
- #:slot-ref (lambda (obj)
- (cons (slot-ref obj 'irr-class)
- (slot-ref obj 'irr-ptr)))
- #:slot-set! (lambda (obj wrapped)
- (slot-set! obj 'irr-ptr (cdr wrapped)))))
+ (irr-pointer #:init-value %null-pointer #:accessor irr-pointer #:init-keyword #:irr-pointer))