Lines Matching refs:car
74 ;; we see a form like (car foo) we can from then on assume that
79 ;; to call car with a null argument.) A better approach might
106 ;; (funcall fn (car list))
172 ;; ;; (car (cons A B)) -> (prog1 A B)
173 ;; (disassemble (lambda (x) (car (cons (foo) 42))))
178 ;; ;; (car (list A B ...)) -> (prog1 A B ...)
179 ;; (disassemble (lambda (x) (car (list (foo) 42 (bar)))))
201 (if (integerp (setq c (car arg)))
206 (car (cdr (cdr arg))))
208 (car (cdr arg)))
235 (let ((f (car-safe sexp)))
241 (eq (car f) 'macro))
256 (let* ((name (car form))
265 (when (and (consp fn) (eq (car fn) 'autoload))
269 (if (and (consp fn) (eq (car fn) 'autoload))
283 (if (eq (car-safe fn) 'lambda)
291 (let ((lambda (car form))
301 (if (and (stringp (car body)) (cdr body))
303 (if (and (consp (car body)) (eq 'interactive (car (car body))))
306 (cond ((eq (car arglist) '&optional)
313 ((eq (car arglist) '&rest)
323 (setq bindings (cons (list (car arglist)
331 (setq bindings (cons (list (car arglist) (car values))
366 (let ((fn (car-safe form))
384 (eq 'lambda (car-safe fn)))
398 (list (car binding)
407 (byte-optimize-form (car clause) nil)
418 (if (cdr tmp) (cons 'progn tmp) (car tmp)))
464 (byte-optimize-form (car backwards)
522 (symbolp (car-safe form))
523 (get (car-safe form) 'cl-compiler-macro)
538 ;; There is no need to compile the call to `car' there.
539 (and (eq fn 'car)
540 (eq (car-safe (cadr form)) 'prog1)
545 (eq (car-safe last) 'setq)
547 (eq (car-safe (nth 2 last)) 'cdr)
572 (unless (byte-compile-constp (car list))
590 (symbolp (car form))
593 (setq opt (get (car form) 'byte-for-effect-optimizer)))
594 (setq opt (get (car form) 'byte-optimizer)))
614 (setq new (and (car rest) (byte-optimize-form (car rest) fe)))
634 `(cond ((consp ,form) (eq (car ,form) 'quote))
647 (if (numberp (car rest))
648 (setq constants (cons (car rest) constants))
649 (setq args (cons (car rest) args)))
653 (list (car form)
654 (apply (car form) constants)
656 (cons (car form) (nreverse args))
657 (car args)))
658 (apply (car form) constants))
667 (if (or (not (numberp (car (cdr form))))
668 (not (numberp (car (cdr (cdr form))))))
670 (let ((constant (car (cdr form)))
672 (while (numberp (car rest))
673 (setq constant (funcall (car form) constant (car rest))
676 (cons (car form) (cons constant rest))
709 (if (integerp (car rest))
714 (cond ((integerp (car rest))
715 (setq constants (cons (car rest) constants))
767 (let ((last (car (reverse (nthcdr 3 form)))))
789 (cons (car form) (cdr (cdr form)))
802 ((let ((last (car (reverse form))))
809 (while (not (symbolp (car (setq form (cdr form))))))
810 (setcar form (list '+ (car form) (car form)))))
818 (let ((last (car (reverse (cdr (cdr form))))))
830 (setq form (cons (car form)
846 (setq form (byte-optimize-delay-constants-math form 1 (car form)))
849 (setq form (if (eq (car form) 'logand)
852 ((and (eq (car-safe form) 'logior)
865 (list (car form) (nth 2 form) (nth 1 form)))
872 (setq ok (byte-compile-constp (car rest))
924 (put 'car 'byte-optimizer 'byte-optimize-predicate)
926 (put 'car-safe 'byte-optimizer 'byte-optimize-predicate)
976 (if (byte-compile-trueconstp (car rest))
978 rest (setcdr (memq (car rest) form) nil))))
995 (cond ((byte-compile-trueconstp (car-safe (car rest)))
998 (if (cdr (car rest))
999 (if (cdr (cdr (car rest)))
1000 (cons 'progn (cdr (car rest)))
1001 (nth 1 (car rest)))
1002 (car (car rest)))))
1005 (setcdr (memq (car rest) form) nil)))
1009 (if (eq 'cond (car-safe form))
1011 (if (and (consp (car clauses))
1012 (null (cdr (car clauses))))
1013 (list 'or (car (car clauses))
1015 (cons (car form) (cdr (cdr form)))))
1039 (if (and (consp clause) (memq (car clause) '(not null))
1071 (if (memq (car-safe fn) '(quote function))
1081 (eq (car-safe last) 'quote))
1105 ((eq (car form) 'let)
1106 (append '(progn) (mapcar 'car-safe (mapcar 'cdr-safe (nth 1 form)))
1110 (list 'let* (reverse (cdr binds)) (nth 1 (car binds)) nil)))))
1117 (list 'car (if (zerop (nth 1 form))
1149 (let ((var (car-safe (cdr-safe form))))
1151 ((and (eq (car-safe var) 'quote) (consp (cdr var)))
1153 ((and (eq (car-safe var) 'make-local-variable)
1154 (eq (car-safe (setq var (car-safe (cdr var)))) 'quote)
1187 capitalize car-less-than-car car cdr ceiling char-after char-before
1226 car-safe case-table-p cdr-safe char-or-string-p commandp cons consp
1253 (put (car side-effect-free-fns) 'side-effect-free t)
1256 (put (car side-effect-and-error-free-fns) 'side-effect-free 'error-free)
1270 (put (car pure-fns) 'pure t)
1365 (car (setq tags
1377 (car (setq byte-compile-variables
1393 (cond ((numberp (car rest)))
1394 ((setq tmp (assq (car (car rest)) tags))
1402 (if (null (car (cdr (car lap))))
1438 byte-integerp byte-numberp byte-eq byte-equal byte-not byte-car-safe
1446 '(byte-varref byte-nth byte-memq byte-car byte-cdr byte-length byte-aref
1502 (setq lap0 (car rest)
1516 ((and (eq 'byte-discard (car lap1))
1517 (memq (car lap0) side-effect-free))
1519 (setq tmp (aref byte-stack+-info (symbol-value (car lap0))))
1538 ((and (memq (car lap0) byte-goto-ops)
1540 (cond ((eq (car lap0) 'byte-goto)
1543 ((memq (car lap0) byte-goto-always-pop-ops)
1559 ((and (eq 'byte-varref (car lap2))
1561 (memq (car lap1) '(byte-varset byte-varbind)))
1562 (if (and (setq tmp (memq (car (cdr lap2)) byte-boolean-vars))
1563 (not (eq (car lap0) 'byte-constant)))
1566 (if (memq (car lap0) '(byte-constant byte-dup))
1570 (car (cdr lap0))))
1575 (cons (car lap0) tmp))
1576 (setcar lap2 (car lap0))
1579 (setcar lap2 (car lap1))
1592 ((and (eq 'byte-dup (car lap0))
1593 (eq 'byte-discard (car lap2))
1594 (memq (car lap1) '(byte-varset byte-varbind)))
1605 ((and (eq 'byte-not (car lap0))
1606 (or (eq 'byte-goto-if-nil (car lap1))
1607 (eq 'byte-goto-if-not-nil (car lap1))))
1611 (if (eq (car lap1) 'byte-goto-if-nil)
1615 (setcar lap1 (if (eq (car lap1) 'byte-goto-if-nil)
1626 ((and (or (eq 'byte-goto-if-nil (car lap0))
1627 (eq 'byte-goto-if-not-nil (car lap0))) ; gotoX
1628 (eq 'byte-goto (car lap1)) ; gotoY
1630 (let ((inverse (if (eq 'byte-goto-if-nil (car lap0))
1641 ((and (eq 'byte-constant (car lap0))
1642 (memq (car lap1) byte-conditional-ops))
1643 (cond ((if (or (eq (car lap1) 'byte-goto-if-nil)
1644 (eq (car lap1) 'byte-goto-if-nil-else-pop))
1645 (car (cdr lap0))
1646 (not (car (cdr lap0))))
1652 (if (memq (car lap1) byte-goto-always-pop-ops)
1668 ((and (eq 'byte-varref (car lap0))
1671 (while (eq (car (car tmp)) 'byte-dup)
1674 (eq (cdr lap0) (cdr (car tmp)))
1675 (eq 'byte-varref (car (car tmp))))
1685 (setcar (car tmp) 'byte-dup)
1686 (setcdr (car tmp) 0)
1692 ((and (eq (car lap0) 'TAG)
1693 (eq (car lap1) 'TAG))
1706 ((and (eq 'TAG (car lap0))
1716 ((and (memq (car lap0) '(byte-goto byte-return))
1717 (not (memq (car lap1) '(TAG nil))))
1723 (not (eq 'TAG (car (car tmp)))))
1724 (if opt-p (setq deleted (cons (car tmp) deleted)
1729 (if (eq 'TAG (car (car tmp)))
1730 (format "%d:" (car (cdr (car tmp))))
1731 (or (car tmp) ""))))
1749 ((and (eq 'byte-unbind (car lap1))
1750 (memq (car lap0) byte-after-unbind-ops))
1760 ((and (eq 'byte-unbind (car lap1))
1761 (memq (car lap0) '(byte-varbind byte-save-excursion
1766 (if (eq (car lap0) 'byte-varbind)
1770 lap0 (cons (car lap1) (1+ (cdr lap1)))
1771 (if (eq (car lap0) 'byte-varbind)
1772 (car rest)
1773 (car (cdr rest)))
1775 (eq (car lap0) 'byte-varbind))
1776 (car (cdr rest))
1783 ((and (memq (car lap0) byte-goto-ops)
1784 (memq (car (setq tmp (nth 1 (memq (cdr lap0) lap))))
1787 (or (eq (car lap0) 'byte-goto)
1788 (eq (car tmp) 'byte-goto)))
1790 (car lap0) tmp tmp)
1791 (if (eq (car tmp) 'byte-return)
1799 ((and (memq (car lap0) '(byte-goto-if-nil-else-pop
1801 (memq (car (car (setq tmp (cdr (memq (cdr lap0) lap)))))
1804 (not (eq lap0 (car tmp))))
1805 (setq tmp2 (car tmp))
1806 (setq tmp3 (assq (car lap0) '((byte-goto-if-nil-else-pop
1810 (if (memq (car tmp2) tmp3)
1811 (progn (setcar lap0 (car tmp2))
1814 (car lap0) tmp2 lap0))
1816 (or (eq 'TAG (car (nth 1 tmp)))
1820 (car lap0) tmp2 (nth 1 tmp3))
1828 ((and (eq (car lap0) 'byte-constant)
1829 (eq (car lap1) 'byte-goto)
1830 (memq (car (car (setq tmp (cdr (memq (cdr lap1) lap)))))
1833 (not (eq lap1 (car tmp))))
1834 (setq tmp2 (car tmp))
1835 (cond ((memq (car tmp2)
1836 (if (null (car (cdr lap0)))
1842 (setcar lap1 (car tmp2))
1851 (or (eq 'TAG (car (nth 1 tmp)))
1854 (setcdr lap1 (car (cdr tmp)))
1863 ((and (eq (car lap1) 'byte-varset)
1864 (eq (car lap2) 'byte-goto)
1866 (eq (car (car (setq tmp (cdr (memq (cdr lap2) lap)))))
1868 (eq (cdr (car tmp)) (cdr lap1))
1869 (not (memq (car (cdr lap1)) byte-boolean-vars)))
1870 ;;(byte-compile-log-lap " Pulled %s to end of loop" (car tmp))
1874 (nth 1 (cdr lap2)) (car tmp)
1876 (nth 1 (cdr lap2)) (car tmp)
1888 ((and (eq (car lap0) 'byte-goto)
1889 (eq (car lap1) 'TAG)
1891 (cdr (car (setq tmp (cdr (memq (cdr lap0) lap))))))
1892 (memq (car (car tmp))
1896 ;; lap0 lap1 (cdr lap0) (car tmp))
1900 lap0 (nth 1 lap1) (nth 1 (cdr lap0)) (car tmp)
1901 (cons (cdr (assq (car (car tmp))
1913 (if (eq (car (car tmp)) 'byte-goto-if-nil-else-pop)
1919 (setcar lap0 (nth 1 (memq (car (car tmp))
1939 (setq lap0 (car rest)
1941 (if (memq (car lap0) byte-constref-ops)
1942 (if (or (eq (car lap0) 'byte-constant)
1943 (eq (car lap0) 'byte-constant2))
1954 (and (eq (car lap0) 'byte-constant)
1955 (eq (car (nth 2 rest)) 'byte-constant)
1957 (memq (car lap1) '(byte-varbind byte-varset)))
1960 (setcar (cdr (cdr rest)) (cons (car lap1) (cdr lap1)))
1967 ((memq (car lap0) '(byte-constant byte-varref))
1971 (while (eq 'byte-dup (car (car (setq tmp (cdr tmp))))))
1972 (and (eq (cdr lap0) (cdr (car tmp)))
1973 (eq (car lap0) (car (car tmp)))))
1982 ((and (eq 'byte-unbind (car lap0))
1983 (eq 'byte-unbind (car lap1)))