From d4a8a465c9e2f4f1d6918fdf9d82bebe561cc23a Mon Sep 17 00:00:00 2001 From: Kamil Shakirov Date: Fri, 4 Nov 2022 13:45:54 +0600 Subject: [PATCH] [fix] Do not use SBCL-specific SEQUENCE:DOSEQUENCE --- tools/clog-builder.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index 6e1c808..61e8799 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -1397,7 +1397,7 @@ It parse the string TEXT without using READ functions." (let ((char-count 0) (backslash 0) exps in-dquotes-p left-dquote left-braces left-brackets) - (sequence:dosequence (c text) + (loop for c across text do (if (= backslash 0) ;current char isn't after a backslash (if (eql c #\\) (incf backslash) ;if it is a backslash, mark for the next word