[mcclim-cvs] CVS mcclim/Apps/Listener

[ahefner]

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

Modified Files:
	listener.lisp 
Log Message:
:insert-default wasn't necessary.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp	2008/02/03 10:18:32	1.40
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp	2008/02/03 10:20:04	1.41
@@ -143,7 +143,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 :default "hello" :default-type 'empty-input :insert-default nil))
+        (accept 'command-or-form :stream stream :prompt nil :default "hello" :default-type 'empty-input))
     (cond      
       ((presentation-subtypep type 'empty-input)
        ;; Do nothing.