Lines Matching defs:feature
83 int discard; /* flag used when reading an unavailable feature */
1956 LispObj *feature = LispDoRead(info);
1960 return (feature);
1962 if (INVALIDP(feature))
1969 status = LispEvalFeature(feature);
2000 LispEvalFeature(LispObj *feature)
2006 if (CONSP(feature)) {
2007 LispObj *function = CAR(feature), *arguments = CDR(feature);
2010 READ_ERROR1("bad feature test function %s", STROBJ(function));
2012 READ_ERROR1("bad feature test arguments %s", STROBJ(arguments));
2035 READ_ERROR1("unimplemented feature test function %s", test);
2038 if (KEYWORDP(feature))
2039 feature = feature->data.quote;
2040 else if (!SYMBOLP(feature))
2041 READ_ERROR1("bad feature specification %s", STROBJ(feature));
2043 test = ATOMID(feature);
2046 /* paranoia check, elements in the feature list must ge keywords */
2053 /* unknown feature */