Update of /project/beirc/cvsroot/beirc In directory clnet:/tmp/cvs-serv14343
Modified Files: message-display.lisp Log Message: Speed up updating output by storing an sxhashed value.
Also, force re-draw of messages that are actually affected by nick focussing and ignore states.
--- /project/beirc/cvsroot/beirc/message-display.lisp 2006/03/12 09:48:57 1.39 +++ /project/beirc/cvsroot/beirc/message-display.lisp 2006/03/24 21:07:20 1.40 @@ -53,14 +53,14 @@ (nth-value 1 (decode-universal-time (irc:received-time message))))))))) (updating-output (stream* :cache-value - (list message - (focused-nicks receiver) - (slot-value *application-frame* 'ignored-nicks) - width - *max-preamble-length* - *timestamp-column-orientation* - *default-fill-column*) - :cache-test #'equal) + (sxhash (list message + (message-from-focused-nick-p message receiver) + (message-from-ignored-nick-p message receiver) + width + *max-preamble-length* + *timestamp-column-orientation* + *default-fill-column*)) + :cache-test #'eql) (formatting-row (stream*) (output-timestamp-column :left) (formatting-cell (stream* :align-x :right :min-width '(3 :character))