From 641b6864ce5ee26eed5edcdc5c65f82ff01872ce Mon Sep 17 00:00:00 2001 From: Cyrus Harmon <cyrus@bobobeach.com> Date: Sun, 5 Nov 2017 14:06:50 -0800 Subject: [PATCH] check connection users before colling nickname --- application.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/application.lisp b/application.lisp index 82855b1..355f6ac 100644 --- a/application.lisp +++ b/application.lisp @@ -948,7 +948,9 @@ not away." (defun connection= (connection1 connection2) ;; TODO: should compare by network, not by server name. ;; TODO: also, there is no port that we could compare. - (and (equal (irc:nickname (irc:user connection1)) (irc:nickname (irc:user connection2))) + (and (irc:user connection1) + (irc:user connection2) + (equal (irc:nickname (irc:user connection1)) (irc:nickname (irc:user connection2))) (equal (irc:server-name connection1) (irc:server-name connection2)))) (define-beirc-command (com-connect :name t) -- GitLab