Lines Matching refs:caar
351 (let* ((karg (if (consp (car arg)) (caar arg)
407 (cl-do-arglist (caar args)
409 (cl-do-arglist (caar args) (cadr (pop args))))
715 (if (and (eq (caar args) 'return) (null loop-name))
1123 (if (and (consp (car specs)) (listp (caar specs)))
1124 (let* ((spec (caar specs)) (nspecs nil)
1351 (let* ((name (caar bindings))
1369 (cons (list (symbol-name (caar bindings))
1524 (delq (caar spec) byte-compile-warnings))
1526 (adjoin (caar spec) byte-compile-warnings)))))))
1651 (defsetf caar (x) (val) (list 'setcar (list 'car x) val))
2030 (if (and (not (cdr bindings)) (cdar bindings) (symbolp (caar bindings)))
2035 (let* ((place (if (symbolp (caar rev))
2036 (list 'symbol-value (list 'quote (caar rev)))
2037 (caar rev)))
2171 (let ((opt (if (consp (car opts)) (caar opts) (car opts)))
2224 (setcar (memq (or (assq (caar include-descs) old-descs)
2226 (caar include-descs) include))
2326 (let* ((name (caar constrs))
2641 (caaar car caar) (caadr car cadr) (cadar car cdar)
2642 (caddr car cddr) (cdaar cdr caar) (cdadr cdr cadr)