diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-29 13:26:49 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-30 17:54:03 -0700 |
commit | 0c8b8cca6afda8aeafb7fb80f72e25276b70c7b4 (patch) | |
tree | 4e743d7d9e01a507b226451c951d4f9e6188d465 /src/connection.lisp | |
parent | e866051ecfade8ee49ecdbebedc94a9caed3e047 (diff) | |
download | consfigurator-0c8b8cca6afda8aeafb7fb80f72e25276b70c7b4.tar.gz |
add TODO about converting slots to connattrs
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection.lisp')
-rw-r--r-- | src/connection.lisp | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index d69f157..0ebe348 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -64,6 +64,12 @@ For an example of usage, see the :SUDO connection type.")) :reader connection-parent :documentation "The value of *CONNECTION* at the time this connection was established.") + (connattrs + :initform nil + :documentation "This connection's connection attributes.") + + ;; 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 @@ -83,10 +89,7 @@ For an example of usage, see the :SUDO connection type.")) (remote-user :initform nil :documentation - "The name of the remote user.") - (connattrs - :initform nil - :documentation "This connection's connection attributes."))) + "The name of the remote user."))) (defclass lisp-connection (connection) ()) |