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