Re: What's the canonical way to check "alistp"?

[Robert L.]

On 3/1/2018, Drew Adams wrote:

> > What's the best way to check if every element in a list is also a list?
> 
> Also a list or also a cons? Do you want (alistp '(()))
> to return true?  I'm guessing no.
> 
> (defun alistp (xs)
>   "Return non-nil iff XS is a list and each element is a cons."
>   (and (listp xs)
>        (catch 'alistp
>          (dolist (x  xs) (unless (consp x) (throw 'alistp nil)))
>          t)))
> 
> (The code should not bother to check each element if it
> finds one that is not a cons.)

(defun alistp (xs)
  (and (listp xs) (while (consp (car xs)) (pop xs)))
  (not xs))

-- 
[Amazon bans history book after it received 300 5-star reviews.]
http://www.tomatobubble.com/worldwarii.html
http://archive.org/details/nolies