- (cond
- ((eq current-chosen-object 'uxul-world::burning-marshmallow)
- (setf (gethash (cons (+ i current-upper-x)
- (+ j current-upper-y))
- item-table) 'uxul-world::burning-marshmallow))
- (t
- (setf (gethash (cons (+ i current-upper-x)
- (+ j current-upper-y))
- item-table) current-chosen-object)))
+ (setf (gethash (cons (+ i current-upper-x)
+ (+ j current-upper-y))
+ item-table)
+ (and current-chosen-object
+ (list current-chosen-object (ltk:text argument1-entry) (ltk:text argument2-entry))))