Lines Matching refs:alist
37 `(do ((alist alist (cdr alist)))
38 ((endp alist))
39 (if (car alist)
40 (if ,test-guy (return (car alist))))))
42 (defun assoc (item alist &key key test test-not)
45 (assoc-guts (funcall test item (funcall key (caar alist))))
46 (assoc-guts (funcall test item (caar alist)))))
50 (funcall key (caar alist)))))
51 (assoc-guts (not (funcall test-not item (caar alist))))))
54 (assoc-guts (eql item (funcall key (caar alist))))
55 (assoc-guts (eql item (caar alist)))))))
57 (defun assoc-if (predicate alist &key key)
59 (assoc-guts (funcall predicate (funcall key (caar alist))))
60 (assoc-guts (funcall predicate (caar alist)))))
62 (defun assoc-if-not (predicate alist &key key)
64 (assoc-guts (not (funcall predicate (funcall key (caar alist)))))
65 (assoc-guts (not (funcall predicate (caar alist))))))
67 (defun rassoc (item alist &key key test test-not)
70 (assoc-guts (funcall test item (funcall key (cdar alist))))
71 (assoc-guts (funcall test item (cdar alist)))))
75 (funcall key (cdar alist)))))
76 (assoc-guts (not (funcall test-not item (cdar alist))))))
79 (assoc-guts (eql item (funcall key (cdar alist))))
80 (assoc-guts (eql item (cdar alist)))))))
82 (defun rassoc-if (predicate alist &key key)
84 (assoc-guts (funcall predicate (funcall key (cdar alist))))
85 (assoc-guts (funcall predicate (cdar alist)))))
87 (defun rassoc-if-not (predicate alist &key key)
89 (assoc-guts (not (funcall predicate (funcall key (cdar alist)))))
90 (assoc-guts (not (funcall predicate (cdar alist))))))
92 (defun acons (key datum alist)
93 (cons (cons key datum) alist))
95 (defun pairlis (keys data &optional (alist '()))
98 ((and (endp x) (endp y)) alist)
101 (setq alist (acons (car x) (car y) alist))))
104 (defun copy-alist (alist)
106 (if (endp alist)
107 alist
109 (cons (if (atom (car alist))
110 (car alist)
111 (cons (caar alist) (cdar alist)))
113 (do ((x (cdr alist) (cdr x))