kriyative/bind-1.lisp

Created July 6, 2011 18:24

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/kriyative/1067957.js"></script>
Save kriyative/1067957 to your computer and use it in GitHub Desktop.

Download ZIP

A lightweight `bind' macro 2

Raw

bind-1.lisp

	(bind (((x y) point)
	((x1 y1 w h) frame)
	(x2 (+ x1 w))
	(y2 (+ y1 h)))
	(and (>= x x1) (<= x x2) (>= y y1) (<= y y2)))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment