Allow any non-nil value to count as true in bool-vector.

Likewise for xd_signature in dbusbind.c.
This is more consistent with the usual practice in Emacs, which is
that any non-nil value counts as true.
* doc/lispref/sequences.texi (Bool-Vectors): Coalesce discussion of how to
print them.  bool-vector's args need not be t or nil.
* src/alloc.c (Fbool_vector): Don't require args to be t or nil.
* src/dbusbind.c (xd_signature): Likewise, for booleans.
* src/data.c, lisp.h (Qbooleanp):
* src/lisp.h (CHECK_BOOLEAN): Remove.  All uses removed.

1 files changed, 0 insertions, 4 deletions

diff --git a/src/alloc.c b/src/alloc.c
index e808c3d4bf3..1dc33b72520 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2177,16 +2177,12 @@ LENGTH must be a number.  INIT matters only in whether it is t or nil.  */)
 DEFUN ("bool-vector", Fbool_vector, Sbool_vector, 0, MANY, 0,
        doc: /* Return a new bool-vector with specified arguments as elements.
 Any number of arguments, even zero arguments, are allowed.
-Each argument should be either t or nil.
 usage: (bool-vector &rest OBJECTS)  */)
   (ptrdiff_t nargs, Lisp_Object *args)
 {
   ptrdiff_t i;
   Lisp_Object vector;
 
-  for (i = 0; i < nargs; i++)
-    CHECK_BOOLEAN (args[i]);
-
   vector = make_uninit_bool_vector (nargs);
   for (i = 0; i < nargs; i++)
     bool_vector_set (vector, i, !NILP (args[i]));