When no previous rpm is installed, the new one is needed for upgrade (don't error...

diff --git a/upgrade.lisp b/upgrade.lisp
index 42840f0..c7dde09 100644 (file)
--- a/upgrade.lisp
+++ b/upgrade.lisp
@@ -35,5 +35,5 @@
     :for desired-version = (rpm-pathname-version desired-rpm)
     :for installed-version = (when installed-rpm
                                (rpm-versioned-name-version installed-rpm))
-    :unless (funcall test desired-version installed-version)
+    :unless (and installed-version (funcall test desired-version installed-version))
     :collect desired-rpm))