Ensure to start with nil data into convert function

2019-02-19 14:09:50 +01:00 · 2019-02-19 14:09:50 +01:00 · 9a72240067
commit 9a72240067
parent 78f05ba362
1 changed files with 1 additions and 0 deletions
--- 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)))