[mcclim-cvs] CVS mcclim/Apps/Listener

[crhodes]

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

Modified Files:
	listener.lisp 
Log Message:
Note a problem with the execute-frame-command method


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp	2006/03/29 10:43:37	1.25
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp	2006/05/10 11:19:33	1.26
@@ -121,6 +121,7 @@
    (history-length :initform 25 :initarg :history-length :accessor history-length)))
 
 (defmethod execute-frame-command :after ((frame command-history-mixin) command)
+  ;; FIXME: not safe against commands sent from other frames.
   (push command (history frame))  
   (when (> (length (history frame)) (history-length frame))
     (setf (history frame)