Skip to content

Instantly share code, notes, and snippets.

@kriyative

kriyative/bind-1.lisp

Created July 6, 2011 18:24
Show Gist options
  • Save kriyative/1067957 to your computer and use it in GitHub Desktop.
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