Lines Matching defs:pl
3166 list lambda, args, p, *pp, *pq, *pl, *px;3184 push(NIL); pl = sp;3185 for (*pl = car(*px) ; consp(*pl) ; *pl = cdr(*pl)) {3186 if (atom(car(*pl))) {3187 push(car(*pl));3192 else if (atom(cdar(*pl))) {3193 push(caar(*pl));3198 push(caar(*pl));3200 push(cadr(car(*pl)));