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.