+ ((eql current-chosen-object :info)
+ (let ((sym (gethash (cons (+ i current-upper-x)
+ (+ j current-upper-y))
+ item-table nil)))
+ (if sym
+ (ltk:do-msg
+ (format nil (concatenate 'string
+ "Symbolname: \"" (symbol-name (car sym)) "\"~%"
+ "First argument: \"" (cadr sym) "\"~%"
+ "Second argument: \"" (caddr sym) "\"")))
+ (ltk:do-msg "There doesnt seem to be anything here."))))