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 (defun equal? (la lb)
 7 665c255d 2023-08-04 jrmu   (cond
 8 665c255d 2023-08-04 jrmu     ((and (symbolp la) (symbolp lb))
 9 665c255d 2023-08-04 jrmu      (eql la lb))
10 665c255d 2023-08-04 jrmu     ((symbolp la) (symbolp lb))
11 665c255d 2023-08-04 jrmu     ((symbolp lb) (symbolp la))
12 665c255d 2023-08-04 jrmu     ((null la) (null lb))
13 665c255d 2023-08-04 jrmu     ((null lb) (null la))
14 665c255d 2023-08-04 jrmu     (t (and
15 665c255d 2023-08-04 jrmu 	(equal? (car la) (car lb))
16 665c255d 2023-08-04 jrmu 	(equal? (cdr la) (cdr lb))))))