- (cmd-take-from gameobj message
- #:direct-obj direct-obj #:indir-obj indir-obj
- #:preposition preposition #:player player))))
+ (<- player 'tell
+ #:text `("You don't see any such " ,direct-obj " to take "
+ ,preposition " " ,(slot-ref gameobj 'name) ".")))))