(defun define-p (e) (if (consp e) (eq (car e) 'define)))