assoc

[procedure] assoc key alist

scheme:assoc.

(def assoc (key al)
  (if (atom al)
       nil
      (and (acons (car al)) (is (caar al) key))
       (car al)
      (assoc key (cdr al))))

See also alref