From 44dd86ba560e3420eb72f330f913040af87f05e2 Mon Sep 17 00:00:00 2001 From: hxz Date: Mon, 16 Jan 2023 14:13:08 +0800 Subject: [PATCH] fixed a typo --- source/clog-connection.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/clog-connection.lisp b/source/clog-connection.lisp index 1b710a1..6f13517 100644 --- a/source/clog-connection.lisp +++ b/source/clog-connection.lisp @@ -321,7 +321,7 @@ the default answer. (Private)" (remhash id *connection-ids*) (remhash connection *connections*))) (t (c) - (format t "Condition caught in handle-message - ~A.~&" c) + (format t "Condition caught in handle-close-connection - ~A.~&" c) (values 0 c)))) ;;;;;;;;;;;;;;;;;