[cl-smtp-devel] pointer out of memory bounds

[Jan Idzikowski]

Hello William,

I have no access on Exchange 2003 Server, so I can not test it, sorry.
But can You set the CL-SMTP::*DEBUG* variable to T and send an email?
You'll see the debug output of the communication.
And can you send me this debug output?

Regards Jan

Am Donnerstag, den 13.02.2014, 15:14 -0500 schrieb William P. Proffitt:
> Hello,
> 
> 
> Recently as in the last couple of days. I have been having trouble
> with Cl-Smtp  on Exchange 2003 in Lispworks 6.1.1 . 
> 
> 
> It goes like this:
> 
> 
> (in-package "CL-USER")
> 
> (ql:quickload 'cl-smtp)
> 
> 
> 
> (cl-smtp:send-email "ServerName"
>                     "User1 at FooSite.com"
>                     "User2 at FooSite.com"
>                     "Test4"
>                     "Read this message"
>                     :authentication '(:login "FooUser" "FooPassword"))
> 
> 
> 
> Error: The condition In + of (8 #<pointer out of memory bounds: 52>)
> arguments should be of type NUMBER. occurred.
> 
> 
> 
> 
> 
> It appears it encounters this error in the underlined code below in
> cl-smtp.lisp (cl-smtp-20140211-cvs)
> 
> 
> 
> (defun read-from-smtp (stream &optional lines)
>      (let* ((line (read-line stream))
>         (response (string-trim '(#\Return #\NewLine) (subseq line 4)))
>         (response-code (parse-integer line :start 0 :junk-allowed t)))
>        (WHEN *DEBUG* (PRINT (FORMAT NIL "from server: ~A" LINE)))
>         (if (= (char-code (elt line 3)) (char-code #\-))
>            (read-from-smtp stream (append lines (list response)))
>            (values response-code response lines))))
> 
> 
> 
> Any idea what is wrong?
> 
> 
> 
> -- 
> Regards,
> 
> 
> William
> 
> 
>