-(defmacro make-object (&key name class attr bhv look)
- `(let ((object
- '(:name ,name :class ,class :attr ,(make-object-attributes attr) :bhv ,(make-object-behaviour bhv) :look ,look)))
- (add-object object)
- object))
+(defun make-object (&key name class attr bhv look)
+ (let ((object
+ `(:name ,name :class ,class :attr ,(make-object-attributes attr) :bhv ,(make-object-behaviour bhv) :look ,look)))
+ (add-object object)
+ object))