1 665c255d 2023-08-04 jrmu (defun bad-count-pairs (x)
 2 665c255d 2023-08-04 jrmu   (if (not (consp x))
 3 665c255d 2023-08-04 jrmu       0
 4 665c255d 2023-08-04 jrmu       (+ (bad-count-pairs (car x))
 5 665c255d 2023-08-04 jrmu n	 (bad-count-pairs (cdr x))
 6 665c255d 2023-08-04 jrmu 	 1)))
 7 665c255d 2023-08-04 jrmu (defvar z '(a b c))
 8 665c255d 2023-08-04 jrmu (bad-count-pairs z)
 9 665c255d 2023-08-04 jrmu (setf (car (cdr z)) (cddr z))
10 665c255d 2023-08-04 jrmu (bad-count-pairs z)
11 665c255d 2023-08-04 jrmu (setf (car z) (cdr z))
12 665c255d 2023-08-04 jrmu (bad-count-pairs z)
13 665c255d 2023-08-04 jrmu (setf (car z) z)
14 665c255d 2023-08-04 jrmu (bad-count-pairs z)