As a mere lamb, finding my CS feet...
(defun has-list (lst)
(if (null lst)
nil
(if (listp (car lst))
T
(has-list (cdr lst)))))
And today...
(defun has-list (lst)
(and (not (null lst))
(or (listp (car lst))
(has-list (cdr lst)))))
Let me explain:
I've just moved house. Ok, by just I mean 3 months ago! I haven't unpacked too much which tells me two things: a) I have a bunch of crap I don't need, and b) turns out there is no valid point b).
So in what little unpacking I have done, I found an old notebook from way back to when I took Ann Nicholson's IA course as an undergraduate. ASNI Common Lisp by Paul Graham was one of the required texts. (My memory is a little sketchy, but I think it was during that course that I first came across PG). Anyway, the old notebook also contains my answers to the end of chapter questions.
Reading your old code is a humbling, but fascinating experience.
Feed