GC *before* trying to allocate the next image array
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Mon, 05 Feb 2018 23:54:28 -0500 |
| parents |
fbdceb03ce0e
|
| children |
ba8de6322022
|
| branches/tags |
(none) |
| files |
src/drawing.lisp |
Changes
--- 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))))