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

[Kick Damien-DKICK1]

Sorry for the delay...

(EXPECT #<Closure Over Function "DEFUN CREATE-SCANNER-AUX" {40333B01}>
        " "
        (FUNCTION (T T T)
         (VALUES (OR NULL FIXNUM) &OPTIONAL T SIMPLE-VECTOR SIMPLE-VECTOR))
        (BASE-STRING 1)) 

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

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

Debug  (type H for help)

("DEFUN CREATE-BMH-MATCHER" -2)
Source: 
; File: /usr/vob/2gtt/lti/cl-ppcre-0.7.4/scanner.lisp
(AREF SKIP (CHAR-CODE (SCHAR PATTERN K)))
0] 

-----Original Message-----
From: cl-ppcre-devel-bounces at common-lisp.net [mailto:cl-ppcre-devel-bounces at common-lisp.net] On Behalf Of Edi Weitz
Sent: Friday, 12 March, 2004 02:55
To: Kick Damien-DKICK1
Cc: cl-ppcre-devel at common-lisp.net
Subject: Re: [cl-ppcre-devel] Problems with a regexp using CL-PPCRE 0.7.4


OK, what you've sent so far looks OK. Could you now please add the
following code, try again, and show me the output (you can of course
leave out the login/password stuff as long as it doesn't cause the
error)?

1. In your EXPECT function between (READ-CHAR IO) and
   (MULTIPLE-VALUE-BIND ...) add

     (print (list 'expect expected buffer
                          (type-of expected)
                          (type-of buffer)))

2. In BMH-MATCHER-AUX in scanner.lisp (from CL-PPCRE) after the line
   `(LAMBDA (START-POS) remove the declaration and replace it with

     (print (list 'bmh start-pos *end-pos* *string* pattern
                       (type-of *string*)
                       (type-of pattern)))

Let's see what we get...

Thanks,
Edi.

_______________________________________________
cl-ppcre-devel site list
cl-ppcre-devel at common-lisp.net
http://common-lisp.net/mailman/listinfo/cl-ppcre-devel