Skip to content

Instantly share code, notes, and snippets.

@brackendev

brackendev/lol-clozure-ccl.lisp

Last active October 3, 2019 00:28
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save brackendev/4861123cc91d79e3e8e40a5a1c233487 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save brackendev/4861123cc91d79e3e8e40a5a1c233487 to your computer and use it in GitHub Desktop.
Download ZIP
[Common Lisp] Land of Lisp with Clozure CL
Raw
lol-clozure-ccl.lisp
;; Page 120
(defun dot->png (fname thunk)
(with-open-file (*standard-output*
fname
:direction :output
:if-exists :supersede)
(funcall thunk))
(ccl:run-program "/usr/local/bin/dot" (list "-Tpng" "-O" fname)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment