Lines Matching refs:car
444 (and (eq token (car rule)) (null (cdr rule))
456 (eq (car item) 'not)
461 (eq (car item) 'or)
520 (rplaca result (append (car result) (car sub-result)))
548 (setq augment (car (member label table-list :key #'indtable-label)))
714 switches (remove-if #'null (car elements) :key #'indtoken-switch)
715 begins (remove-if #'null (car elements) :key #'indtoken-begin)
743 (car (member (indtoken-switch item) tables :key #'indtable-label))
750 (car (member (indtoken-begin item) tables :key #'indtable-label))
760 (dolist (item (car elements))
811 (setq rule (car rulep))
815 (if (eq (car rule) 'not)
820 rule (car rulep)
827 (not (eq (car matchp) test))
829 (not (eq (car matchp) rule))
833 (if (eq (car matchp) rule)
847 ;; (eq (car rule) 'or)
849 (if (member (car matchp) (cdr rule) :test #'eq)
877 (member (car rulep) matchp :test #'eq)
894 ((eq rule (car matchp))
950 (ind-table (car (indent-tables ,ind-definition)))
1098 ind-match (car ind-match)
1184 (or (setq ind-match (car ind-cache)) (go :ind-process))
1188 ind-token (car ind-match)
1248 (car (indent-tables ,ind-definition))
1284 (setq ind-cache nil ind-tleft 0 ind-change (mapcar #'car ind-state))
1377 (rplaca (car ind-matches) *ind-token*)
1389 ind-change (mapcar #'car ind-state)
1408 (setq *ind-token-list* (mapcar #'car ind-state))
1411 *ind-token* (car item)