From 1bc931c93e8a5c8290ad9afafb82ecf19ef73f26 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 22 Feb 2021 14:30:24 -0700 Subject: fix argument order in call to PUSH Signed-off-by: Sean Whitton --- src/host.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/host.lisp') 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 -- cgit v1.2.3