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

Modified Files: listener.lisp Log Message: Handle empty input.

--- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2008/02/01 18:48:56 1.39 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2008/02/03 10:18:32 1.40 @@ -133,14 +133,23 @@

;;; Lisp listener command loop

+(define-presentation-type empty-input ()) + +(define-presentation-method present + (object (type empty-input) stream view &key &allow-other-keys) + (princ "" stream)) + (defmethod read-frame-command ((frame listener) &key (stream *standard-input*)) "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 nil)) - (if (presentation-subtypep type 'command) - object - `(com-eval ,object)))) + (accept 'command-or-form :stream stream :prompt nil :default "hello" :default-type 'empty-input :insert-default nil)) + (cond + ((presentation-subtypep type 'empty-input) + ;; Do nothing. + `(com-eval (values))) + ((presentation-subtypep type 'command) object) + (t `(com-eval ,object)))))

(defun print-listener-prompt (stream frame) (declare (ignore frame))