#:allocation #:each-subclass
#:init-thunk
(build-commands
- ("look" ((loose-direct-command cmd-look-at)
+ (("l" "look") ((loose-direct-command cmd-look-at)
(empty-command cmd-look-room)))
("go" ((empty-command cmd-go-where)
(loose-direct-command cmd-go)))