Ignore systems in projects if failed to parse.

Author: fukamachi

src/quickdocs-updater.lisp

@@ -107,20 +107,22 @@
                                                                                          :from-end t
                                                                                          :count 1))))))))
     (dolist (system-info (getf release-info :systems))
-      (let ((system
-              (create-system :project-id (project-id project)
-                             :name (getf system-info :name)
-                             :version (getf system-info :version)
-                             :description (getf system-info :description)
-                             :long-description (getf system-info :long-description)
-                             :license (getf system-info :license)
-                             :homepage-url (getf system-info :homepage)
-                             :authors (ensure-list (getf system-info :author))
-                             :maintainers (ensure-list (getf system-info :maintainer)))))
-        (create-system-extracted-info (system-id system)
-                                      (getf system-info :packages)
-                                      :failed (getf system-info :failed)
-                                      :error-log (getf system-info :error-log))))
+      (if (getf system-info :name)
+          (let ((system
+                  (create-system :project-id (project-id project)
+                                 :name (getf system-info :name)
+                                 :version (getf system-info :version)
+                                 :description (getf system-info :description)
+                                 :long-description (getf system-info :long-description)
+                                 :license (getf system-info :license)
+                                 :homepage-url (getf system-info :homepage)
+                                 :authors (ensure-list (getf system-info :author))
+                                 :maintainers (ensure-list (getf system-info :maintainer)))))
+            (create-system-extracted-info (system-id system)
+                                          (getf system-info :packages)
+                                          :failed (getf system-info :failed)
+                                          :error-log (getf system-info :error-log)))
+          (warn "Invalid system info ~S" system-info)))
     project))
 
 (defun update-cliki-info (ql-dist-version)