mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2026-01-24 21:40:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

revision

Browse source
This commit is contained in:
pls.153 2024-09-16 14:45:49 +02:00
parent eb67c56fd2
commit 762ecdda8e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lisp/qml.lisp
View file

@ -54,8 +54,8 @@
:for n :from 1 :to len
:collect (if (and (stringp arg)
(or (x:starts-with "#x" arg) ; integer
(and (char= #\: (char arg 0)) ; keyword
(> (length arg) 1)
(and (> (length arg) 1)
(char= #\: (char arg 0)) ; keyword
(every 'alphanumericp (subseq arg 1))
(< n len))))
(or (ignore-errors (read-from-string arg))