Skip to content
Snippets Groups Projects
Commit 6423a273 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

xt-graphics: refactor if* to cond

parent 3dc9a777
No related branches found
No related tags found
No related merge requests found
......@@ -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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment