KCL Bug: assoc doesn't take :key

[pc%linus@mitre-bedford.ARPA]

In porting a couple of systems to KCL, we discovered that under KCL
assoc does not accept the :key keyword as called for in CLtL (p. 280).
To fix this, change the following definition in c/list.d

	@(defun assoc_or_rassoc (item a_list &key test test_not)
		saveTEST;
	@
		protectTEST;
		setupTEST(item, test, test_not, Cnil);

to

	@(defun assoc_or_rassoc (item a_list &key test test_not key)
		saveTEST;
	@
		protectTEST;
		setupTEST(item, test, test_not, key);

	- Penny