Определить, есть ли в списке два подряд идущих списка

(defun task (lst)
  (cond ((null (cdr lst)) nil)
        (t (or (and (listp (car lst)) (listp (cadr lst))) (task (cdr lst))))))
 
==> TASK
 
(task '(1 2 3))
 
==> NIL
 
(task '(1 (2) 3))
 
==> NIL
 
(task '(1 (2) (3)))
 
==> T

(define task (lambda (lst)
  (cond ((null? (cdr lst)) '())
        ((or (and (list? (car lst)) (list? (cadr lst))) (task (cdr lst)))))))
 
(display (task '(1 2 (3) (4) 5)))

(define (task lst)
  (define (check lst prev?)
    (if (null? lst)
        #f
        (let ((curr? (list? (car lst))))
          (or (and prev? curr?)
              (check (cdr lst) curr?)))))
  (check lst #f))
 
(define (test lst)
  (display lst)
  (display " => ")
  (display (task lst))
  (newline))
 
(for-each
 test
 '(()
   (1)
   (1 2)
   ((1) 2)
   (1 (2))
   ((1) (2))
   (1 (2) 3)
   ((1) 2 (3))
   (1 (2) (3))
   ((1) (2) 3)))