Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory clnet:/tmp/cvs-serv13512/Apps/Listener

Modified Files: listener.lisp Log Message: Make the form-reading method for Drei signal an appropriate error when an activation gesture is invoked with no input.

Changed the Listener to provide NIL as a default.

--- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2007/06/02 20:30:53 1.35 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2007/12/13 07:57:15 1.36 @@ -137,7 +137,7 @@ "Specialized for the listener, read a lisp form to eval, or a command." (multiple-value-bind (object type) (let ((*command-dispatchers* '(#,))) - (accept 'command-or-form :stream stream :prompt nil)) + (accept 'command-or-form :stream stream :prompt nil :default nil)) (if (presentation-subtypep type 'command) object `(com-eval ,object))))