loic/sgp2dot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ensure to start with nil data into convert function

Browse source
This commit is contained in:
Loic Guegan 2019-02-19 14:09:50 +01:00
parent 78f05ba362
commit 9a72240067
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
convert.lisp
View file

@ -20,6 +20,7 @@
;;; Program entry point ;;; Program entry point
(defun convert (platform dot-file) (defun convert (platform dot-file)
"Parse Simgrid platform then write it into a 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 (let ((xml-parser (make-instance 'xml-parser-state
:seed (cons 0 0) :seed (cons 0 0)
:new-element-hook #'handle-element))) :new-element-hook #'handle-element)))