diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 14:30:24 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 14:30:24 -0700 |
| commit | 1bc931c93e8a5c8290ad9afafb82ecf19ef73f26 (patch) | |
| tree | 80a63fe5c1ae41ed8fb7ea33ab764feac029123f /src/host.lisp | |
| parent | 3d83bfef73f4faa7e674dd2601fc0731f6b279a3 (diff) | |
| download | consfigurator-1bc931c93e8a5c8290ad9afafb82ecf19ef73f26.tar.gz | |
fix argument order in call to PUSH
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/host.lisp')
| -rw-r--r-- | src/host.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/host.lisp b/src/host.lisp index 59458b1..2ef0fb6 100644 --- a/src/host.lisp +++ b/src/host.lisp @@ -53,7 +53,7 @@ entries." (string (setq hostname-sym (intern hostname))) (symbol (setq hostname-sym hostname hostname (string-downcase (symbol-name hostname))))) - (push (getf attrs :hostname) hostname) + (push hostname (getf attrs :hostname)) (when (stringp (car properties)) (push (pop properties) (getf attrs :desc))) `(progn |