all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: Drew Adams <drew.adams@oracle.com>
To: Heime <heimeborgia@protonmail.com>,
	"tomas@tuxteam.de" <tomas@tuxteam.de>
Cc: "help-gnu-emacs@gnu.org" <help-gnu-emacs@gnu.org>
Subject: RE: [External] : Re: Check whether an object is an alist
Date: Tue, 17 Sep 2024 19:22:10 +0000	[thread overview]
Message-ID: <DS7PR10MB5232A505A77831620344B117F3612@DS7PR10MB5232.namprd10.prod.outlook.com> (raw)
In-Reply-To: <LpzodbA020Yh8Cr2c4C7CblK2bIdO3vfUMu6lRyUHrsUZGn-Sb2AgO7VwjSdVo0voP8G-V8uhisjt-DbKgDUmNJcTw1VeK9lceIVeeQxIY0=@protonmail.com>

> (defun torium-alist-p (obj)
>   (and (listp obj)
>        (every (lambda (x)
>                 (or (null x)
>                 (consp x)))
>               obj)))

`listp' does exactly this: (or (null x) (consp x)).

So your code just does this:

 (and (listp obj) (every #'listp obj))

      parent reply	other threads:[~2024-09-17 19:22 UTC|newest]

Thread overview: 22+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2024-09-16 10:29 Check whether an object is an alist Heime
2024-09-17  8:45 ` Heime
2024-09-17  9:38   ` Manuel Giraud via Users list for the GNU Emacs text editor
2024-09-17  9:46     ` tomas
2024-09-17 11:16       ` Heime
2024-09-17 11:23         ` tomas
2024-09-17 13:51           ` Heime
2024-09-17 13:58             ` tomas
2024-09-17 14:32               ` Heime
2024-09-17 15:20                 ` tomas
2024-09-17 16:26                   ` Heime
2024-09-17 17:57                     ` tomas
2024-09-17 18:04                       ` Heime
2024-09-17 18:28                         ` tomas
2024-09-17 19:20                           ` Heime
2024-09-17 19:35                             ` tomas
2024-09-17 21:02                               ` Heime
2024-09-17 21:25                                 ` Heime
2024-09-18  4:21                                   ` tomas
2024-09-18  4:52                                     ` Heime
2024-09-17 22:01                                 ` Stephen Berman
2024-09-17 19:22                 ` Drew Adams [this message]

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=DS7PR10MB5232A505A77831620344B117F3612@DS7PR10MB5232.namprd10.prod.outlook.com \
    --to=drew.adams@oracle.com \
    --cc=heimeborgia@protonmail.com \
    --cc=help-gnu-emacs@gnu.org \
    --cc=tomas@tuxteam.de \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.