Home | History | Annotate | Download | only in lisp

Lines Matching refs:ATOM

1242 	/* Set unreadable field, this atom needs quoting to be read back */
1243 	object = ATOM(string);
1244 	object->data.atom->unreadable = 1;
1267 	/* A normal atom */
1268 	object = ATOM(string);
1313 	object = ATOM(symbol);
1315 	    object->data.atom->unreadable = 1;
1335 	    object = ATOM(symbol);
1337 	    object->data.atom->unreadable = 1;
1347 	LispAtom *atom;
1349 	atom = (LispAtom *)hash_check(pack->atoms, symbol, strlen(symbol));
1350 	if (atom)
1351 	    object = atom->object;
1354 	if (object == NULL || object->data.atom->ext == 0)
1382 	    return (ATOM(str));
1402 		    return (ATOM(str));
1425 		return (ATOM(str));	/* syntax error */
1442 		    return (ATOM(str));
1463 	    return (ATOM(str));
1467 	    return (ATOM(str));
1883     RPLACA(fields, ATOM(str));