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