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