Initial commit.

This commit is contained in:
2016-02-18 14:53:30 +01:00
commit 8e93ca7a95
2215 changed files with 341269 additions and 0 deletions

View File

@@ -0,0 +1,8 @@
(defun ca-all-asscs (asslist query)
"returns a list of all corresponding values (like rassoc)"
(cond
((null asslist) nil)
(t
(if (equal (cdr (car asslist)) query)
(cons (car (car asslist)) (ca-all-asscs (cdr asslist) query))
(ca-all-asscs (cdr asslist) query)))))