if-let.el

(defmacro if-let (binding-form when-true when-false)
  (destructuring-bind (var-name var-expr) binding-form
	`(let ((,var-name ,var-expr))
	   (if ,var-name
		   ,when-true
		 ,when-false))))

(macroexpand '(if-let (a 3)
					  a
					  (+ a a)))			; => (let ((a 3)) (if a a (+ a a)))

(if-let (a 3)
		a
		(+ a a))						; => 3