diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-03 09:41:01 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-04 14:47:03 -0700 |
| commit | c85b361044c1621b2d48597da36e427618aabc67 (patch) | |
| tree | 07bacb6bb2967af73c77bd4e6e0ab37556fa6782 /src/property.lisp | |
| parent | 006d3969bad1f84c0133a36ed9a623b59bd01c0e (diff) | |
| download | consfigurator-c85b361044c1621b2d48597da36e427618aabc67.tar.gz | |
add PUSH-HOSTATTR, don't use &rest in PUSH-HOSTATTRS & fix docstring
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/property.lisp b/src/property.lisp index 10d9cf2..804f4cb 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -517,8 +517,14 @@ Called by property :HOSTATTRS, :APPLY and :UNAPPLY subroutines." (defun get-parent-hostattrs-car (k &optional (host *host*)) (car (get-parent-hostattrs k host))) -(defun push-hostattrs (k &rest vs) - "Push new static informational attributes VS of type KEY. +(defun push-hostattr (k v) + "Push new static informational attribute V of type K. + +Called by property :HOSTATTRS subroutines." + (push v (getf (slot-value *host* 'hostattrs) k))) + +(defun push-hostattrs (k vs) + "Push new static informational attributes VS of type K. Called by property :HOSTATTRS subroutines." (setf (getf (slot-value *host* 'hostattrs) k) |