1 665c255d 2023-08-04 jrmu (defun memq (item x)
2 665c255d 2023-08-04 jrmu   (cond ((null x) nil)
3 665c255d 2023-08-04 jrmu 	((eql item (car x)) x)
4 665c255d 2023-08-04 jrmu 	(t (memq item (cdr x)))))
5 665c255d 2023-08-04 jrmu 
6 665c255d 2023-08-04 jrmu