update some arg lists

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

2 files changed, 10 insertions, 5 deletions

diff --git a/src/connection/local.lisp b/src/connection/local.lisp
index f5a755c..0852e72 100644
--- a/src/connection/local.lisp
+++ b/src/connection/local.lisp
@@ -11,7 +11,8 @@ root Lisp is running on, as the root Lisp's uid."))
 (defmethod connection-run ((connection local-connection)
 			   shell-cmd
 			   &optional
-			     input)
+			     input
+			     environment)
   ;; assumes a POSIX shell (otherwise we could wrap in 'sh -c')
   (multiple-value-bind (output _ exit-code)
       (uiop:run-program shell-cmd
diff --git a/src/core.lisp b/src/core.lisp
index afa80c4..89274ee 100644
--- a/src/core.lisp
+++ b/src/core.lisp
@@ -31,7 +31,12 @@ upload any prerequisite data required by the deployment."))
 (defgeneric connection-run (connection cmd &optional input environment)
   (:documentation "Subroutine to run shell commands on the host."))
 
-(defmethod connection-run :around ((connection connection) cmd &optional input)
+(defmethod connection-run :around ((connection connection)
+				   cmd
+				   &optional
+				     input
+				     environment)
+  (declare (ignore input environment))
   (let ((*connection* (slot-value connection 'parent)))
     (call-next-method)))
 
@@ -68,9 +73,8 @@ upload any prerequisite data required by the deployment."))
     (call-next-method)))
 
 ;; many connection types don't need anything to be done to disconnect
-(defmethod connection-teardown (&rest args)
-  (declare (ignore args))
-  (values))
+(defmethod connection-teardown ((connection connection))
+   (values))
 
 ;; global value gets set in connection/local.lisp, but the symbol is not
 ;; exported as it should only get bound by APPLY-PROPERTIES