list.c
void list_assert(atom_t* obj, const char* fname) {
    if (!(obj && obj->type == LIST)) {
        printf("\x1b[95m" "Fatal error: %s: not a list!\n" "\x1b[0m", fname);
        exit(EXIT_FAILURE);
    }
}
/*
--------------------------------------
list_assert

    Assert that object exists and is of LIST type.
--------------------------------------
*/
list_assert
Assert that object exists and is of LIST type.
list_assert Assert that object exists and is of LIST type .
void list_assert(atom_t* obj, const char* fname) {
    if (!(obj && obj->type == LIST)) {
        printf("\x1b[95m" "Fatal error: %s: not a list!\n" "\x1b[0m", fname);
        exit(EXIT_FAILURE);
    }
}
void list_assert ( atom_t * obj , const char * fname ) { if ( ! ( obj && obj -> type == LIST ) ) { printf ( " \x1b " " \n " " \x1b " , fname ) ; exit ( EXIT_FAILURE ) ; } }
list_assert
Assert that object exists and is of LIST type.
list_assert Assert that object exists and is of LIST type .