+
+
+;;; Collisions
+
+(define-macro (lambda-mob-data attr . body)
+ `(lambda ,attr ,@body))
+
+(define-macro (define-collision-check name mobs . body)
+ `(defmacro* ,name (#:optional m)
+ `(let ,(cond (m `((mob-id (,m 'get-mob-id)) (mob-type (,m 'get-type))))
+ (else `()))
+
+ mob-id)))