Function: cl--adjoin

(fn CL-ITEM CL-LIST &rest CL-KEYS)