"greedy commands but which match the direct object"
(make-command verbs
cmatch-direct-obj-greedy
(lambda* (goes-by #:key direct-obj rest)
(member direct-obj goes-by))
action
"greedy commands but which match the direct object"
(make-command verbs
cmatch-direct-obj-greedy
(lambda* (goes-by #:key direct-obj rest)
(member direct-obj goes-by))
action