Can't use Perl embedded modifiers (?i)

[ghost]

Hello,

define-string-lexer do not support embedded modifiers like case-sensitive : (?i).

With the following example :
(define-string-lexer my-lexer ("(?i)foobar" (return (values 'foobar 'boobar))))

i get :

Execution of a form compiled with errors.
Form:
  (DEFINE-STRING-LEXER MY-LEXER
  ("(?i)foobar" (RETURN (VALUES 'FOOBAR 'FOOBAR))))
Compile-time error:
  (during macroexpansion of (DEFINE-STRING-LEXER MY-LEXER
  ...))
invalid named register in (?i)foobar
   [Condition of type SB-INT:COMPILED-PROGRAM-ERROR]

Any idea how to use Perl embedded modifiers, and particulary insensitive case ?

Thanks

[djr7C4]

It would appear that it only supports named registers at the moment. Feel free to submit a pull request.

…

On Fri, Jul 23, 2021, 3:03 AM flotsfacetieux ***@***.***> wrote: Hello, define-string-lexer do not support embedded modifiers like case-sensitive : (?i). With the following example : (define-string-lexer my-lexer ("(?i)foobar" (return (values 'foobar 'boobar)))) i get : Execution of a form compiled with errors. Form: (DEFINE-STRING-LEXER MY-LEXER ("(?i)foobar" (RETURN (VALUES 'FOOBAR 'FOOBAR)))) Compile-time error: (during macroexpansion of (DEFINE-STRING-LEXER MY-LEXER ...)) invalid named register in (?i)foobar [Condition of type SB-INT:COMPILED-PROGRAM-ERROR] Any idea how to use Perl embedded modifiers, and particulary insensitive case ? Thanks — You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub <#7>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AAFAOSFY2XJ4WU5H4DSL5R3TZE45RANCNFSM5A3WM3QQ> .