From 8f8c59341e7f420397f79d47af2787ca55fba07b Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 2 Apr 2022 13:55:22 -0700 Subject: rename CONNECTION-TEARDOWN -> CONNECTION-TEAR-DOWN Signed-off-by: Sean Whitton --- src/connection.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/connection.lisp') diff --git a/src/connection.lisp b/src/connection.lisp index 7cefb6c..914c197 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -153,15 +153,15 @@ if they need to handle streams and strings differently.")) (let ((*connection* (slot-value connection 'parent))) (call-next-method))) -(defgeneric connection-teardown (connection) +(defgeneric connection-tear-down (connection) (:documentation "Subroutine to disconnect from the host.")) -(defmethod connection-teardown :around ((connection connection)) +(defmethod connection-tear-down :around ((connection connection)) (let ((*connection* (slot-value connection 'parent))) (call-next-method))) ;; many connection types don't need anything to be done to disconnect -(defmethod connection-teardown ((connection connection)) +(defmethod connection-tear-down ((connection connection)) (values)) (defgeneric connection-connattr (connection k) -- cgit v1.2.3