diff options
Diffstat (limited to 'src/connection.lisp')
| -rw-r--r-- | src/connection.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
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) |