;; IAttributeExchangingObject
(define-class <attribute-exchanging-object> (<reference-counted>)
- (irr-class #:init-value "IAttributeExchangingObject" #:getter irr-class))
+ (irr-class #:init-value "IAttributeExchangingObject"))
(export <attribute-exchanging-object>)
;;IFileArchive
(define-class <file-archive> (<reference-counted>)
- (irr-class #:init-value "IFileArchive" #:getter irr-class))
+ (irr-class #:init-value "IFileArchive"))
(export <file-archive>)
;;IFileSystem
(define-class <file-system> (<reference-counted>)
- (irr-class #:init-value "IFileSystem" #:getter irr-class))
+ (irr-class #:init-value "IFileSystem"))
(define-method (add-file-archive! (file-system <file-system>) filename . rest)
(let-keywords rest #f