char "{" could not write in char class with {..}

[ssqq]

Code Select Expand


> {[{]}

ERR: string token too long : "[{]}"
> {[{]}

ERR: string token too long : "[\{]}"
;; nnn also could not recognize in {..}
> {123}
"\123"



[ssqq]

Code Select Expand


> {[Q{E]}
ERR: string token too long : "[\Q{\E]}"
> {[Q{E]}
ERR: string token too long : "[\Q\{\E]}"


[ssqq]

But if code is in file, it is OK.

Code Select Expand


ssqq@X61:~/spp-newlisp$ cat debug.lsp
(constant 'say println)

(define (regex-str-char @str)
  (replace {([Q()[]{}|.+*?^$E])} @str (string {} $1) 0))

(say (regex-str-char "{}()"))

(exit)
ssqq@X61:~/spp-newlisp$ newlisp debug.lsp
{}()