[cl-ppcre-devel] Problems with a regexp using CL-PPCRE 0.7.4

[Kick Damien-DKICK1]

Edi Weitz [edi at agharta.de] wrote:

> 2. If that doesn't help you might want to try the whole thing again
>    with CL-PPCRE:*USE-BMH-MATCHERS* set to NIL globally. Do you
>    still get an error? Is it different?

I just tried and I got the same error.

    Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
       -2 is not of type (MOD 536870911)

    Restarts:
      0: [ABORT] Return to Top-Level.

    Debug  (type H for help)

    (SEARCH " % " " " :FROM-END NIL ...)
    Source: Error finding source: 
    Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer exists:
      target:code/seq.lisp.
    0] cl-ppcre:*use-bmh-matchers*

    NIL
    0] (break)


    Break

    Restarts:
      0: [CONTINUE] Return from BREAK.
      1: [ABORT   ] Return to debug level 1.
      2:            Return to Top-Level.

    Debug  (type H for help)

    (DEBUG::DEBUG-EVAL-PRINT (BREAK))
    Source: Error finding source: 
    Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer exists:
      target:code/debug.lisp.
    0]] backtrace

    0: (DEBUG::DEBUG-EVAL-PRINT (BREAK))
    1: (DEBUG::DEBUG-LOOP)
    2: (DEBUG:INTERNAL-DEBUG)
    3: (DEBUG::INVOKE-TTY-DEBUGGER #<TYPE-ERROR {8028D8FD}>)
    4: (DEBUG::REAL-INVOKE-DEBUGGER #<TYPE-ERROR {8028D8FD}>)
    5: (INVOKE-DEBUGGER #<TYPE-ERROR {8028D8FD}>)
    6: (ERROR TYPE-ERROR :FUNCTION-NAME SEARCH :DATUM ...)
    7: (KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER SEARCH
                                              #.(SYSTEM:INT-SAP #x38000308)
                                              #<Alien (* #) at #xFFBEDE78>
                                              (269 526))
    8: (KERNEL::INTERNAL-ERROR #.(SYSTEM:INT-SAP #xFFBEDE78) #<unused-arg>)
    9: ("Foreign function call land")
    10: (SEARCH " % " " " :FROM-END NIL ...)
    11: ("DEFUN CREATE-SCANNER-AUX" #<lambda-list-unavailable>)
    12: ("DEFMETHOD EXPECT (FUNCTION STREAM)" #<unused-arg> #<unused-arg>
         #<Closure Over Function "DEFUN CREATE-SCANNER-AUX" {8028D451}>
         #<Stream for descriptor 9> ...)
    13: (TEST-TELNET-ARGSMMGTS5--CASE-2 "argsmmgts5" :LOGIN NIL :PASSWORD ...)
    14: (INTERACTIVE-EVAL
         (TEST-TELNET-ARGSMMGTS5--CASE-2 "argsmmgts5"
                                         :PROMPT
                                         +DEFAULT-MGTS-SERVER-PROMPT--BREAK-CL-PPCRE+))
    15: (COMMON-LISP::%TOP-LEVEL)
    16: (COMMON-LISP::RESTART-LISP)
    
    0]]