Update of /project/beirc/cvsroot/beirc In directory common-lisp:/tmp/cvs-serv5563

Modified Files: receivers.lisp Log Message: strip the silly beirc:: package prefix from define-global-message-receiver-lookup

--- /project/beirc/cvsroot/beirc/receivers.lisp 2005/10/05 13:08:29 1.12 +++ /project/beirc/cvsroot/beirc/receivers.lisp 2006/01/27 22:40:32 1.13 @@ -133,8 +133,10 @@ (remove nil (mapcar (lambda (channel) (find-receiver (irc:name channel) frame)) - (irc:channels (irc:find-user (beirc::current-connection frame) - (irc:source message)))))))) + (let ((user (irc:find-user (current-connection frame) + (irc:source message)))) + (when user + (irc:channels user)))))))) (define-global-message-receiver-lookup irc:irc-quit-message) (define-global-message-receiver-lookup irc:irc-nick-message))