#:use-module (system foreign)
#:export (<irrlicht-base>
irr-class
- irr-pointer
- is-empty?))
+ irr-pointer))
(define-class <irrlicht-base> ()
(irr-class #:init-value "")
;; in multiple inherited classes
(define-method (irr-class (obj <irrlicht-base>))
(slot-ref obj 'irr-class))
-
-(define-method (is-empty? (obj <irrlicht-base>))
- (equal? (irr-pointer obj) %null-pointer))