diff --git a/tk-silica/xt-graphics.lisp b/tk-silica/xt-graphics.lisp index 74eca1f221d6ba7547f2e723be2e97785bf6853a..66cdeca14366a231fa17716b459d907750d703e2 100644 --- a/tk-silica/xt-graphics.lisp +++ b/tk-silica/xt-graphics.lisp @@ -1029,9 +1029,9 @@ (y (pop positions))) (push `(valid-point-p ,x ,y) forms))) `(unless (and ,@forms) - (if* *discard-illegal-graphics* - then (return-from ,function-name) - else (error "Coordinate(s) out of (signed-byte 16) range"))))) + (if *discard-illegal-graphics* + (return-from ,function-name) + (error "Coordinate(s) out of (signed-byte 16) range"))))) (defmacro with-single-floats (variable-bindings &body body) (flet ((binding-var (x) (if (atom x) x (car x)))