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

Modified Files: application.lisp receivers.lisp Log Message: change (EQL input-context 'hostmask) to (presenation-subtypep i-c 'h);.

Date: Thu Sep 29 16:51:25 2005 Author: afuchs

Index: beirc/application.lisp diff -u beirc/application.lisp:1.16 beirc/application.lisp:1.17 --- beirc/application.lisp:1.16 Wed Sep 28 21:40:07 2005 +++ beirc/application.lisp Thu Sep 29 16:51:25 2005 @@ -497,7 +497,7 @@ (nickname hostmask beirc :tester ((object context-type) (declare (ignore object)) - (eql context-type 'hostmask))) + (presentation-subtypep context-type 'hostmask))) (object) (format nil "*!*@~A" (irc:hostname (irc:find-user (current-connection *application-frame*) object))))

Index: beirc/receivers.lisp diff -u beirc/receivers.lisp:1.7 beirc/receivers.lisp:1.8 --- beirc/receivers.lisp:1.7 Tue Sep 27 22:53:41 2005 +++ beirc/receivers.lisp Thu Sep 29 16:51:25 2005 @@ -103,9 +103,9 @@ (target (if (equal nominal-target mynick) (irc:source message) nominal-target))) - (if (or (find-receiver (irc:source message) frame) + (if (or (find-receiver target frame) (not (from-network-service-p (irc:source message) frame)) - (and (string= nominal-target target) + (and (eql nominal-target target) (not (global-notice-p message nominal-target)))) (intern-receiver target frame :channel target) (server-receiver frame)))))) @@ -171,6 +171,7 @@ irc:irc-rpl_whoischannels-message irc:irc-rpl_whoisserver-message irc:irc-rpl_whoisidentified-message + irc:irc-rpl_away-message irc:irc-err_nosuchnick-message))

(macrolet ((define-ignore-message-types (&rest mtypes)