diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-15 16:57:04 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-15 17:26:18 -0700 |
commit | 08b78ef52866754f93b977ebd73098047f54c49a (patch) | |
tree | 36604acca2a51a36e26580a590ad0d6a55b170cd /src/connection.lisp | |
parent | 32ac55ef1f167862036497933967f0b65f3666a9 (diff) | |
download | consfigurator-08b78ef52866754f93b977ebd73098047f54c49a.tar.gz |
make CACHED-DATA into a connattr and push to it more consistently
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection.lisp')
-rw-r--r-- | src/connection.lisp | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 0d9d6c6..81d39d5 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -70,10 +70,6 @@ For an example of usage, see the :SUDO connection type.")) ;; TODO some or all of these slots should probably become connattrs. for ;; example, :CHROOT.FORK can have the remote-uid propagate. - (cached-data - :initform nil - :documentation - "Items of prerequisite data known to be cached on the remote side.") (remote-home :initform nil :documentation @@ -481,6 +477,9 @@ connattr, or nil if nothing should be propagated.") "Get the connattr identified by K for the current connection." (getf (slot-value *connection* 'connattrs) k)) +(defun (setf get-connattr) (v k) + (setf (getf (slot-value *connection* 'connattrs) k) v)) + (defmacro with-connattrs ((&rest connattrs) &body forms) "Execute FORMS with connattrs replaced as specified by CONNATTRS, a plist." (with-gensyms (old) |