diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-29 13:01:49 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-30 17:46:39 -0700 |
commit | 76f0787a03fde26243d0034d3c15c444df5ea69c (patch) | |
tree | 288706fb111a3a65fa3490d97cb1c5e02fdba77e /src/connection.lisp | |
parent | 844818aa56e9ed75b9600f5ef6e833bb5fdacaca (diff) | |
download | consfigurator-76f0787a03fde26243d0034d3c15c444df5ea69c.tar.gz |
CONTINUE-DEPLOY* connections: push a new connection object
This is cleaner than resetting certain slot values.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection.lisp')
-rw-r--r-- | src/connection.lisp | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 87f7844..9f71bc7 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -85,15 +85,6 @@ For an example of usage, see the :SUDO connection type.")) :documentation "The name of the remote user."))) -(defun reset-remote-home () - "Clear the cache of the remote user's home directory, uid and name. -Used by implementations of ESTABLISH-CONNECTION which will invalidate the -cached values, such as a connection which forks and then SETUIDs to another -user. Should not be called by properties." - (setf (slot-value *connection* 'remote-home) nil - (slot-value *connection* 'remote-uid) nil - (slot-value *connection* 'remote-user) nil)) - (defclass lisp-connection (connection) ()) (defclass posix-connection (connection) ()) |