From 762ecdda8e42ff5a91361ba7cb340bc99095863c Mon Sep 17 00:00:00 2001 From: "pls.153" Date: Mon, 16 Sep 2024 14:45:49 +0200 Subject: [PATCH] revision --- src/lisp/qml.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lisp/qml.lisp b/src/lisp/qml.lisp index 4aa71f4..7e07e40 100644 --- a/src/lisp/qml.lisp +++ b/src/lisp/qml.lisp @@ -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))