Hallo Hans,
ich habe hier zufällig ein kleines Problem entdeckt. regex-replace-all hatte nur zwei Argumente - das kann auf jeden Fall nicht richtig sein. Ich habe ein bisschen geraten und #?/\1/ ergänzt (wie da drüber). Vielleicht könntest Du das noch mal überprüfen.
Weiterhin noch ein schönes WE, Kilian
PS: Komischerweise hat "mein cmucl" (19c) das schon beim compilen entdeckt:
Error while parsing arguments to DEFINE-COMPILER-MACRO CL-PPCRE:REGEX-REPLACE-ALL: Invalid number of elements in: (BKNR.MAIL::*MESSAGE-ID-RE* (FIRST (IF (BKNR.MAIL::HEADER :IN-REPLY-TO) (CL-PPCRE:SPLIT "\s+" (BKNR.MAIL::HEADER :IN-REPLY-TO)) (LAST (CL-PPCRE:SPLIT "\s+" (BKNR.MAIL::HEADER :REFERENCES)))))) to satisfy lambda-list: (&WHOLE CL-PPCRE::FORM &ENVIRONMENT CL-PPCRE::ENV CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING CL-PPCRE::REPLACEMENT &REST REST)
On Feb 16, 2008 3:06 PM, ksprotte@common-lisp.net wrote:
Author: ksprotte Date: Sat Feb 16 09:06:42 2008 New Revision: 2514
Modified: branches/bos/modules/mail/mail.lisp Log: fix for regex-replace-all in mail.lisp third arg was missing
Modified: branches/bos/modules/mail/mail.lisp
--- branches/bos/modules/mail/mail.lisp (original) +++ branches/bos/modules/mail/mail.lisp Sat Feb 16 09:06:42 2008 @@ -97,7 +97,8 @@ *message-id-re* (first (if (header :in-reply-to) (split #?/\s+/ (header :in-reply-to))
(last (split #?/\s+/ (header :references))))))
(last (split #?/\s+/ (header :references)))))#?/\1/) :headers headers :body body)))))
bknr-cvs mailing list bknr-cvs@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/bknr-cvs