QUERY

On Dec 18, 2007 1:51 PM, Aidan Kehoe <aidan-guest@alioth.debian.org> wrote:
+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;
 }

I personally hate predicates that throw errors.  If I pass a string or an integer to this function, I would like it to return nil.  Would you object to changing that code to something like this?

{
  subr = indirect_function (subr, 0);
  return (SUBRP (subr) && XSUBR (subr)->max_args == UNEVALLED) ? Qt : Qnil;
}

--
Jerry James
http://loganjerry.googlepages.com/