Lines Matching refs:tmp2
597 (let ((tmp1 item) (tmp2 (if selector item1 item2)))
599 ((null tmp1) tmp2)
600 ((null tmp2) tmp1)
601 ((and (numberp tmp1) (numberp tmp2))
603 ((eq tmp1 tmp2) tmp1)
604 ((eq (1+ tmp1) tmp2) (cons tmp1 tmp2))
605 ((eq (1+ tmp2) tmp1) (cons tmp2 tmp1))
609 ((and (>= tmp1 (car tmp2)) (<= tmp1 (cdr tmp2))) tmp2)
610 ((eq (1+ tmp1) (car tmp2)) (cons tmp1 (cdr tmp2)))
611 ((eq (1- tmp1) (cdr tmp2)) (cons (car tmp2) tmp1))
613 ((numberp tmp2)
615 ((and (>= tmp2 (car tmp1)) (<= tmp2 (cdr tmp1))) tmp1)
616 ((eq (1+ tmp2) (car tmp1)) (cons tmp2 (cdr tmp1)))
617 ((eq (1- tmp2) (cdr tmp1)) (cons (car tmp1) tmp2))
619 ((< (1+ (cdr tmp1)) (car tmp2)) nil)
620 ((< (1+ (cdr tmp2)) (car tmp1)) nil)
621 (t (cons (min (car tmp1) (car tmp2))
622 (max (cdr tmp1) (cdr tmp2))))))