newlispfanclub.alh.net

Posted: **Thu Jul 03, 2014 3:13 pm**

> (let (file "temp.txt") (write-file file (append "[text]" (dup "[text]" 5) "[/text]")) (eval-string (read-file "temp.txt")))
"[text][text][text][text][text]"
> (let (file "temp.txt") (write-file file (append "[text]" (dup "[/text]" 5) "[/text]")) (eval-string (read-file "temp.txt")))
nil

quote of large string should allow any word as [begin][/end] border-symbol.