[mcclim-cvs] CVS mcclim/Apps/Listener

[thenriksen]

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))))