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