-#define isatom(c) (isascii((unsigned char) c) \
- && !isspace ((unsigned char) c) \
- && !iscntrl ((unsigned char) c) && (c) != '(' \
- && (c) != ')' && (c) != '<' && (c) != '>' \
- && (c) != '@' && (c) != ',' && (c) != ';' \
- && (c) != ':' && (c) != '\\' && (c) != '"' \
- && (c) != '.' && (c) != '[' && (c) != ']')
-