Skip to content

Instantly share code, notes, and snippets.

@kriyative

kriyative/destructuring-bind-1.lisp

Created July 6, 2011 18:23
Show Gist options
  • Save kriyative/1067953 to your computer and use it in GitHub Desktop.
Save kriyative/1067953 to your computer and use it in GitHub Desktop.
Download ZIP
A lightweight `bind' macro 1
Raw
destructuring-bind-1.lisp
(destructuring-bind (x y)
point
(destructuring-bind (x1 y1 w h)
frame
(let ((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