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