Skip to content

Instantly share code, notes, and snippets.

@metric-space

metric-space/graph->dot.lisp

Created May 16, 2016 00:45
Show Gist options
  • Save metric-space/cced7d1817729066710df82f0b75e9e7 to your computer and use it in GitHub Desktop.
Save metric-space/cced7d1817729066710df82f0b75e9e7 to your computer and use it in GitHub Desktop.
Download ZIP
SBCL version of code in "Land of Lisp" (Conrad Barski) page (Graph code, page 120)
Raw
graph->dot.lisp
(defun dot->png (fname thunk)
(with-open-file (*standard-output*
fname
:direction :output
:if-exists :supersede)
(funcall thunk))
(sb-ext:run-program "/usr/local/bin/dot" (list "-T" "png" "-O " fname) :error t)
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment