[beirc-cvs] CVS update: beirc/application.lisp

[Andreas Fuchs]

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)