Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
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 	 (bad-count-pairs (cdr x))

6 665c255d 2023-08-04 jrmu 	 1)))