mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

[fix] Do not use SBCL-specific SEQUENCE:DOSEQUENCE

Browse source
This commit is contained in:
Kamil Shakirov 2022-11-04 13:45:54 +06:00
parent bc2b68ca96
commit d4a8a465c9
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder.lisp
View file

@ -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