Bugscript drawing library in Common Lisp
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

15 lines
592 B

;;;; bugscript.lisp
(in-package #:bugscript)
;;; Files and file renaming
(defparameter *here* (asdf:system-relative-pathname 'bugscript nil)
"The default directory where things are dumped.")
(defun transform-string (&rest transformation-specs)
"Combine multiple transformation strings together."
(format nil "~{~a~^ ~}" transformation-specs))
(defun dump-to-file (scene filename &optional (default-pathname *here*))
(let ((*default-pathname-defaults* default-pathname))
(with-open-file (s filename :direction :output :if-exists :supersede)
(cl-svg:stream-out s scene))))