Update of /project/beirc/cvsroot/beirc In directory common-lisp.net:/tmp/cvs-serv11537

Modified Files: application.lisp Log Message: replace (read-line ...) with (accept 'mumble ...) in read-frame-command.

this makes RET in the middle of the line work!

Date: Mon Sep 26 10:28:10 2005 Author: afuchs

Index: beirc/application.lisp diff -u beirc/application.lisp:1.10 beirc/application.lisp:1.11 --- beirc/application.lisp:1.10 Sun Sep 25 20:57:25 2005 +++ beirc/application.lisp Mon Sep 26 10:28:10 2005 @@ -524,7 +524,7 @@ (clim:accept 'clim:command :stream stream :prompt nil)) (t - (list 'com-say (read-line stream)))))) + (list 'com-say (accept 'mumble :prompt nil :stream stream)))))) (window-clear stream)))

(defmethod read-frame-command :around ((frame beirc)