From d45cb53e614ad3f43736dd26d3fe9d88342ff4c3 Mon Sep 17 00:00:00 2001
From: eta <github@eta.st>
Date: Fri, 28 May 2021 16:52:35 +0100
Subject: [PATCH] Change the whatscl description to "whatsxmpp (lisp type)"

This is both more informative than "whatscl on ...", and doesn't run the risk of
having an overly long description (by excluding the lisp version), which can
result in disconnections.
---
 stuff.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/stuff.lisp b/stuff.lisp
index 0abef9a..4c21f06 100644
--- a/stuff.lisp
+++ b/stuff.lisp
@@ -1538,6 +1538,9 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
         (bt:with-lock-held (lock)
           (bt:condition-wait condvar lock))))))
 
+(setf whatscl::*default-long-desc*
+      (concatenate 'string "whatsxmpp (" (lisp-implementation-type) ")"))
+
 #+use-swank
 (uiop:register-image-dump-hook
  (lambda ()