Blob

Date:
Message:
Import sources
Actions:
History | Blame | Raw File
1 (defun bad-count-pairs (x)

2   (if (not (consp x))

3       0

4       (+ (bad-count-pairs (car x))

5 	 (bad-count-pairs (cdr x))

6 	 1)))