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@common-lisp.net [mailto:cl-ppcre-devel-bounces@common-lisp.net] On Behalf Of Edi Weitz Sent: Friday, 12 March, 2004 02:55 To: Kick Damien-DKICK1 Cc: cl-ppcre-devel@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@common-lisp.net http://common-lisp.net/mailman/listinfo/cl-ppcre-devel