- `(let ((object
- '(:name ,name :attr ,(make-object-attributes attr) :bhv ,(make-object-behaviour bhv) :look (lambda () ,@look))))
- (add-object object)
- object))
+ `(let ((attr ,(make-object-attributes attr) bhv ,(make-object-behaviour bhv)))
+ (defun ,name (option) ,@look)
+ ))