# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1517892868 18000
# Node ID f0fe6cc0a43f4b4eeb31bc976ce8b98dc88914e6
# Parent  fbdceb03ce0e1806f2bb57c66d7178690726c34e
GC *before* trying to allocate the next image array

diff -r fbdceb03ce0e -r f0fe6cc0a43f src/drawing.lisp
--- a/src/drawing.lisp	Mon Feb 05 23:45:14 2018 -0500
+++ b/src/drawing.lisp	Mon Feb 05 23:54:28 2018 -0500
@@ -180,9 +180,10 @@
 (defmacro with-rendering
     ((image-symbol filename width height &key (padding 0.03))
      &body body)
-  `(let ((,image-symbol (make-image ,width ,height))
-         (*padding* ,padding))
+  `(progn
      (sb-ext:gc :full t)
-     ,@body
-     (write-file ,image-symbol ,filename)
-     (values)))
+     (let ((,image-symbol (make-image ,width ,height))
+           (*padding* ,padding))
+       ,@body
+       (write-file ,image-symbol ,filename)
+       (values))))