Cross Reference: /xsrc/external/mit/xedit/dist/lisp/lisp.c

Lines Matching +defs:newline +defs:property
118 	/* create or change object property */
120 	/* remove object property */
125 	/* Increment reference count of atom property */
127 	/* Decrement reference count of atom property */
593     {LispFunction, Lisp_Recomp, "re-comp pattern &key nospec icase nosub newline"},
912 	    LispMark((*pentry)->data.atom->property->value);
919 	    if (atom->property != NOPROPERTY) {
921 		    LispMark(atom->property->properties);
924 			LispProt(atom->property->fun.function);
926 			LispProt(atom->property->setf);
928 			LispProt(atom->property->structure.definition);
1343 	atom->property = NOPROPERTY;
1353     LispProperty *property;
1355     if (atom->property != NOPROPERTY)
1358     property = LispCalloc(1, sizeof(LispProperty));
1359     LispMused(property);
1360     atom->property = property;
1361     property->package = lisp__data.pack;
1371     if (atom->property != NOPROPERTY)
1372 	/* if atom->property is NOPROPERTY, this is an unbound symbol */
1373 	++atom->property->refcount;
1376 /* Assumes atom property is not NOPROPERTY */
1380     if (atom->property == NOPROPERTY)
1381 	/* if atom->property is NOPROPERTY, this is an unbound symbol */
1384     if (atom->property->refcount <= 0)
1387     --atom->property->refcount;
1389     if (atom->property->refcount == 0) {
1391 	free(atom->property);
1392 	atom->property = NOPROPERTY;
1399     if (atom->property != NOPROPERTY) {
1428     if (atom->property == NOPROPERTY)
1448 	atom->property->value = NULL;
1455     if (atom->property == NOPROPERTY)
1461 	LispFreeArgList(atom->property->alist);
1466     atom->property->fun.function = bytecode;
1474 	atom->property->fun.function = NULL;
1476 	LispFreeArgList(atom->property->alist);
1477 	atom->property->alist = NULL;
1485     if (atom->property == NOPROPERTY)
1494 	    LispFreeArgList(atom->property->alist);
1501     atom->property->fun.function = function;
1502     atom->property->alist = alist;
1510 	atom->property->fun.function = NULL;
1512 	LispFreeArgList(atom->property->alist);
1513 	atom->property->alist = NULL;
1521     if (atom->property == NOPROPERTY)
1530 	    LispFreeArgList(atom->property->alist);
1534     atom->property->fun.builtin = builtin;
1535     atom->property->alist = alist;
1543 	atom->property->fun.function = NULL;
1545 	LispFreeArgList(atom->property->alist);
1546 	atom->property->alist = NULL;
1553     if (atom->property == NOPROPERTY)
1558 	LispFreeArgList(atom->property->salist);
1561     atom->property->setf = setf;
1562     atom->property->salist = alist;
1570 	atom->property->setf = NULL;
1572 	LispFreeArgList(atom->property->salist);
1573 	atom->property->salist = NULL;
1585     if (atom->property == NOPROPERTY)
1590     atom->property->structure.definition = def;
1591     atom->property->structure.function = fun;
1599 	atom->property->structure.definition = NULL;
1625 	if (atom->property == NOPROPERTY)
1627 	if (atom->property->properties == NULL) {
1629 	    atom->property->properties = NIL;
1636 	for (base = list = atom->property->properties;
1646 		LispDestroy("%s: %s has an odd property list length",
1652 		LispDestroy("REMPROP: %s has an odd property list length",
1655 		atom->property->properties = CDDR(list);
1663 	    atom->property->properties =
1664 		CONS(key, CONS(NIL, atom->property->properties));
1665 	    result = CDR(atom->property->properties);
1699     if (atom->property == NOPROPERTY)
1701     if (atom->property->properties == NULL)
1703     atom->property->properties = list;
3144 	 atom->property->fun.builtin->type == LispFunction) ||
3146 	 atom->property->fun.function->funtype == LispFunction) ||
3148 	 atom->property->structure.function != STRUCT_NAME) ||
3224     if (current == NULL || current->data.atom->property == NOPROPERTY) {
3237 	 * property, the current package is the owner, not the previous one. */
3240 	atom->property = symbol->data.atom->property;
3244     else if (current->data.atom->property != symbol->data.atom->property) {
3254 	atom->property = symbol->data.atom->property;
3364 	    if (name->property->value == UNBOUND)
3367 	    return (name->property->value);
3371     return (name->a_object ? name->property->value : NULL);
3402 	    if (name->property->value == UNBOUND)
3405 	    return (&(name->property->value));
3409     return (name->a_object ? &(name->property->value) : NULL);
3544 	if (name->property->value == UNBOUND && value)
3594     if (name->constant && name->a_object && name->property->value != value)
4628 		builtin = atom->property->fun.builtin;
4632 		base = LispMakeEnvironment(atom->property->alist,
4646 		lambda = atom->property->fun.function;
4647 		alist = atom->property->alist;
4656 		lambda = atom->property->fun.function;
4658 		alist = atom->property->alist;
4667 		     atom->property->structure.function != STRUCT_NAME) {
4670 		if (atom->property->structure.function == STRUCT_CONSTRUCTOR)
4672 		else if (atom->property->structure.function == STRUCT_CHECK)
4676 		builtin = atom->property->fun.builtin;
4686 		    base = LispMakeEnvironment(atom->property->alist,
4691 		    base = LispMakeEnvironment(atom->property->alist,
4905     base = LispMakeEnvironment(atom->property->alist,
4907     body = atom->property->fun.function->data.lambda.code;
4970 LispPrint(LispObj *object, LispObj *stream, int newline)
4975     if (newline && LispGetColumn(stream))