From 08b78ef52866754f93b977ebd73098047f54c49a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 15 May 2021 16:57:04 -0700 Subject: make CACHED-DATA into a connattr and push to it more consistently Signed-off-by: Sean Whitton --- src/connection.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/connection.lisp') 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) -- cgit v1.2.3