blist: remove _UNSAFE variants of some macros

Instead, just don't perform those extra TNUM checks. They are not
worth the hassle, at least for now.

src/blister.c

@@ -907,7 +907,7 @@ void PlainBlist (
     /* replace the bits by 'True' or 'False' as the case may be            */
     /* this must of course be done from the end of the list backwards      */
     for ( i = len; 0 < i; i-- )
-        SET_ELM_PLIST(list, i, ELM_BLIST_UNSAFE(list, i));
+        SET_ELM_PLIST(list, i, ELM_BLIST(list, i));
 
     /* 'CHANGED_BAG' not needed, 'True' and 'False' are safe           */
 }
@@ -992,7 +992,7 @@ void ConvBlist (
             block |= bit;
         bit = bit << 1;
         if ( bit == 0 || i == len ) {
-            BLOCK_ELM_BLIST_UNSAFE(list, i) = block;
+            BLOCK_ELM_BLIST(list, i) = block;
             block = 0;
             bit = 1;
         }

src/blister.h

@@ -131,20 +131,13 @@ static inline void SET_LEN_BLIST(Obj list, Int len)
 **  returns a pointer to the start of the data of the Boolean list
 **
 */
-static inline UInt * BLOCKS_BLIST_UNSAFE(Obj list)
-{
-    return ((UInt *)(ADDR_OBJ(list) + 1));
-}
-
 static inline UInt * BLOCKS_BLIST(Obj list)
 {
-    GAP_ASSERT(IS_BLIST_REP_WITH_COPYING(list));
-    return BLOCKS_BLIST_UNSAFE(list);
+    return ((UInt *)(ADDR_OBJ(list) + 1));
 }
 
 static inline const UInt * CONST_BLOCKS_BLIST(Obj list)
 {
-    GAP_ASSERT(IS_BLIST_REP_WITH_COPYING(list));
     return ((const UInt *)(CONST_ADDR_OBJ(list) + 1));
 }
 
@@ -161,8 +154,6 @@ static inline const UInt * CONST_BLOCKS_BLIST(Obj list)
 **  that have side effects.
 */
 #define BLOCK_ELM_BLIST(list, pos) (BLOCKS_BLIST( list )[((pos)-1)/BIPEB])
-#define BLOCK_ELM_BLIST_UNSAFE(list, pos)                                    \
-    (BLOCKS_BLIST_UNSAFE(list)[((pos)-1) / BIPEB])
 
 
 /****************************************************************************
@@ -188,7 +179,7 @@ static inline const UInt * CONST_BLOCKS_BLIST(Obj list)
 */
 static inline Int TEST_BIT_BLIST(Obj list, UInt pos)
 {
-    return BLOCK_ELM_BLIST_UNSAFE(list, pos) & MASK_POS_BLIST(pos);
+    return BLOCK_ELM_BLIST(list, pos) & MASK_POS_BLIST(pos);
 }
 
 /****************************************************************************
@@ -199,15 +190,9 @@ static inline Int TEST_BIT_BLIST(Obj list, UInt pos)
 **  either 'true' or 'false'.  <pos> must  be a positive integer less than or
 **  equal to the length of <list>.
 */
-static inline Obj ELM_BLIST_UNSAFE(Obj list, UInt pos)
-{
-    return TEST_BIT_BLIST(list, pos) ? True : False;
-}
-
 static inline Obj ELM_BLIST(Obj list, UInt pos)
 {
-    GAP_ASSERT(IS_BLIST_REP_WITH_COPYING(list));
-    return ELM_BLIST_UNSAFE(list, pos);
+    return TEST_BIT_BLIST(list, pos) ? True : False;
 }
 
 /****************************************************************************

src/debug.c

@@ -80,7 +80,6 @@ VoidFunc debug_func_pointers[] = {
     (VoidFunc)BAG_HEADER,
     (VoidFunc)BASE_PTR_PLIST,
     (VoidFunc)BLOCKS_BLIST,
-    (VoidFunc)BLOCKS_BLIST_UNSAFE,
     (VoidFunc)BODY_FUNC,
     (VoidFunc)BODY_HEADER,
     (VoidFunc)C_MAKE_MED_INT,