From 9a72240067f333084ab707a86ad8ec8757f3a68d Mon Sep 17 00:00:00 2001
From: Loic Guegan <manzerberdes@gmx.com>
Date: Tue, 19 Feb 2019 14:09:50 +0100
Subject: [PATCH] Ensure to start with nil data into convert function

---
 convert.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/convert.lisp b/convert.lisp
index 4cb503e..cc6de38 100644
--- a/convert.lisp
+++ b/convert.lisp
@@ -20,6 +20,7 @@
 ;;; Program entry point
 (defun convert (platform dot-file)
   "Parse Simgrid platform then write it into a dot file."
+  (setf *hosts* nil *links* nil) ; Be sure to clear hosts and links
   (let ((xml-parser (make-instance 'xml-parser-state
 				                 :seed (cons 0 0)
                                  :new-element-hook #'handle-element)))