Day 4 Common Lisp

;; part 1
(loop for i from 138307 to 654504
               do (setq list1 (map 'list #'digit-char-p (prin1-to-string i)))
                        when (and (or
			(> (count #\1 (write-to-string i)) 1)
                        (> (count #\2 (write-to-string i)) 1)
                        (> (count #\3 (write-to-string i)) 1)
                        (> (count #\4 (write-to-string i)) 1)
                        (> (count #\5 (write-to-string i)) 1)
                        (> (count #\6 (write-to-string i)) 1)
                        (> (count #\7 (write-to-string i)) 1)
                        (> (count #\8 (write-to-string i)) 1)
                        (> (count #\9 (write-to-string i)) 1))
                                  (and (<= (nth 0 list1) (nth 1 list1))
                                       (<= (nth 1 list1) (nth 2 list1))
                                       (<= (nth 2 list1) (nth 3 list1))
                                       (<= (nth 3 list1) (nth 4 list1))
                                       (<= (nth 4 list1) (nth 5 list1))))
                        count i into numcount
                        do (setq ans numcount))

;; part2
(loop for i from 138307 to 654504
               do (setq list1 (map 'list #'digit-char-p (prin1-to-string i)))
                        when (and (or
			(= (count #\1 (write-to-string i)) 2)
                        (= (count #\2 (write-to-string i)) 2)
                        (= (count #\3 (write-to-string i)) 2)
                        (= (count #\4 (write-to-string i)) 2)
                        (= (count #\5 (write-to-string i)) 2)
                        (= (count #\6 (write-to-string i)) 2)
                        (= (count #\7 (write-to-string i)) 2)
                        (= (count #\8 (write-to-string i)) 2)
                        (= (count #\9 (write-to-string i)) 2))
                                  (and (<= (nth 0 list1) (nth 1 list1))
                                       (<= (nth 1 list1) (nth 2 list1))
                                       (<= (nth 2 list1) (nth 3 list1))
                                       (<= (nth 3 list1) (nth 4 list1))
                                       (<= (nth 4 list1) (nth 5 list1))))
                        count i into numcount
                        do (setq ans numcount))