marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Specify concrete types to check for in plistp

Browse source
This commit is contained in:
Marcus Kammer 2023-09-18 22:47:25 +02:00
parent 111997817d
commit 6206bc669a
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/pattern/questionnaire.lisp
View file

@ -32,8 +32,10 @@
(defun plistp (lst) (defun plistp (lst)
"Checks if the given list LST is a property list." "Checks if the given list LST is a property list."
(and (some #'keywordp lst) (loop for elem in lst
(some #'stringp lst))) always (or (keywordp elem)
(stringp elem)
(listp elem))))
(deftype plist () (deftype plist ()
"A property list is a flat list containing keywords and strings." "A property list is a flat list containing keywords and strings."