The following example defines the delete-file
presentation-to-command translator:
(clim:define-presentation-to-command-translator
delete-file
(pathname com-delete-file my-command-table
:documentation "Delete this file"
:gesture :delete)
(object)
(list object))