[beirc-cvs] CVS beirc

[afuchs]

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))