(defmacro extend (environment type name datum &rest other-datum) `(setf ,environment (register ,environment ,type ,name ,datum ,@other-datum)))