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)