diff options
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) |