kernel: use IS_MUTABLE_OBJ in UNB_LIST/ASS_LIST/ASSS_LIST

Author: fingolfin

src/lists.h

@@ -467,7 +467,7 @@ EXPORT_INLINE void UNB_LIST(Obj list, Int pos)
     GAP_ASSERT(pos > 0);
     UInt tnum = TNUM_OBJ(list);
     if (FIRST_LIST_TNUM <= tnum && tnum <= LAST_LIST_TNUM &&
-        (tnum & IMMUTABLE)) {
+        !IS_MUTABLE_OBJ(list)) {
         ErrorMayQuit("List Unbind: <list> must be a mutable list", 0, 0);
     }
     (*UnbListFuncs[TNUM_OBJ(list)])(list, pos);
@@ -504,7 +504,7 @@ EXPORT_INLINE void ASS_LIST(Obj list, Int pos, Obj obj)
     GAP_ASSERT(obj != 0);
     UInt tnum = TNUM_OBJ(list);
     if (FIRST_LIST_TNUM <= tnum && tnum <= LAST_LIST_TNUM &&
-        (tnum & IMMUTABLE)) {
+        !IS_MUTABLE_OBJ(list)) {
         ErrorMayQuit("List Assignment: <list> must be a mutable list", 0, 0);
     }
     (*AssListFuncs[TNUM_OBJ(list)])(list, pos, obj);
@@ -552,7 +552,7 @@ EXPORT_INLINE void ASSS_LIST(Obj list, Obj poss, Obj objs)
     GAP_ASSERT(LEN_LIST(poss) == LEN_LIST(objs));
     UInt tnum = TNUM_OBJ(list);
     if (FIRST_LIST_TNUM <= tnum && tnum <= LAST_LIST_TNUM &&
-        (tnum & IMMUTABLE)) {
+        !IS_MUTABLE_OBJ(list)) {
         ErrorMayQuit("List Assignments: <list> must be a mutable list", 0, 0);
     }
     (*AsssListFuncs[TNUM_OBJ(list)])(list, poss, objs);

tst/testbugfix/2013-03-12-t00285.tst

@@ -55,4 +55,4 @@ Error, List Element: <list> must be a list (not the integer 1)
 gap> v{[1..5]}[1] := 1;
 Error, List Assignments: <objs> must be a dense list (not the integer 1)
 gap> v{[1..5]}{[1..5]}:=ListWithIdenticalEntries(5,[1..5]);
-Error, List Assignments: <list> must be a list (not the integer 1)
+Error, List Assignments: <list> must be a mutable list