8.5.1 Defining a Translation from Floating Point Number to Integer

Here is an example that defines a presentation translator to accept an integer object from a float presentation. Users have the options of typing in a float or integer to the input prompt or clicking on any float or integer presentation.

(define-presentation-translator integer-to-float 

  (integer float my-command-table 

           :documentation "Integer as float" 

           :gesture :select 

           :tester ((object) (integerp object)) 

           :tester-definitive t)

  (object) 

  (float object))

(clim:present most-positive-fixnum)

(clim:accept 'float)