Make lognot handle bignums

* src/data.c (Flognot): Handle bignums.

diff --git a/src/data.c b/src/data.c
index d7175683c8998bf8bfe4d6f66a2f7963dbe4691f..c9504694e371b00b10bd2c31e15770958aa43766 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -3306,8 +3306,20 @@ DEFUN ("lognot", Flognot, Slognot, 1, 1, 0,
        doc: /* Return the bitwise complement of NUMBER.  NUMBER must be an integer.  */)
   (register Lisp_Object number)
 {
-  CHECK_FIXNUM (number);
-  XSETINT (number, ~XINT (number));
+  CHECK_INTEGER (number);
+  if (BIGNUMP (number))
+    {
+      mpz_t value;
+      mpz_init (value);
+      mpz_com (value, XBIGNUM (number)->value);
+      number = make_number (value);
+      mpz_clear (value);
+    }
+  else
+    {
+      eassume (FIXNUMP (number));
+      XSETINT (number, ~XINT (number));
+    }
   return number;
 }