diff options
-rw-r--r-- | src/grid-geometry.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/grid-geometry.lisp b/src/grid-geometry.lisp index eac3d5a..218cdf2 100644 --- a/src/grid-geometry.lisp +++ b/src/grid-geometry.lisp @@ -64,12 +64,12 @@ top right corners of the bounding box for POLY " "Interiorp assumes autoclosep." (with-gensyms (points x1 y1 x2 y2 more) (let* ((autoclose-clause - (when autoclosep + (when (or interiorp autoclosep) `(destructuring-bind (,x2 ,y2) (first ,points) (with-grid-line (,x ,y) (,x2 ,y2) (,x1 ,y1) ,@body)))) (interior-clause - (when (and autoclosep interiorp) + (when interiorp `(destructuring-bind ((,x1 ,y1) (,x2 ,y2)) (grid-bbox-for ,points) (loop for ,x from ,x1 to ,x2 do (loop for ,y from ,y1 to ,y2 |