Blob

Date:
Message:
Import sources
Actions:
History | Blame | Raw File
1 (defun memq (item x)

2   (cond ((null x) nil)

3 	((eql item (car x)) x)

4 	(t (memq item (cdr x)))))