Fix :backup option not accepting NIL

7max · May 18, 2013 · 40152e0 · 40152e0
1 parent a0ee970
commit 40152e0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/configurator.lisp b/src/configurator.lisp
@@ -310,7 +310,7 @@ Examples:
           (:force-add (setq force-add t))
           (:watch (setq watch t))
           (:backup
-           (setq backup (or (pop args)
+           (setq backup (if args (pop args)
                             (log4cl-error ":BACKUP missing argument"))
                  had-backup t))
           (:daily