+ #:getter gameobj-gm)
+ ;; a name to be known by
+ (name #:init-keyword #:name
+ #:accessor gameobj-name)
+
+ ;; how to print our name
+ (name-f #:init-keyword #:name-f
+ #:getter gameobj-name-f
+ #:init-value gameobj-simple-name-f)
+
+ ;; Name aliases
+ (aliases #:init-keyword #:aliases
+ #:init-value '())
+
+ ;; Commands we can handle
+ (commands #:init-value #f)
+ ;; Commands we can handle by being something's container
+ (contain-commands #:init-value #f))
+
+
+(define (gameobj-simple-name-f gameobj)
+ "Simplest version: return ourselves for our name."
+ (gameobj-name gameobj))