QUERY
+DEFUN ("special-form-p", Fspecial_form_p, 1, 1, 0, /*
+Return whether SUBR is a special form. SUBR must be built-in.
+*/
+ (subr))
+{
+ subr = indirect_function (subr, 1);
+ CHECK_SUBR (subr);
+
+ return XSUBR (subr)->max_args == UNEVALLED ? Qt : Qnil;
}