diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-02 13:55:22 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-02 13:55:22 -0700 |
| commit | 8f8c59341e7f420397f79d47af2787ca55fba07b (patch) | |
| tree | 390981a20f68b80fba529f1269154c26d4494629 /src/connection.lisp | |
| parent | f0aa90746c39bff31135eef4d53156d13543aaca (diff) | |
| download | consfigurator-8f8c59341e7f420397f79d47af2787ca55fba07b.tar.gz | |
rename CONNECTION-TEARDOWN -> CONNECTION-TEAR-DOWN
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
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) |