(defun nosubs(l)
 (cond 
    ((null l) T )
    ((atom (car l)) (nosubs (cdr l)) )
    (1 nil)
 )
)

(nosubs '(1 2 3 a b))
(nosubs '(1 2 (3 4) 5))
(system)