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

[William P. Proffitt]

Hi Jan,

I am not sure if this helps but this older attached version works properly  
with Exchange 2003.


Regards,

William





On Thu, 13 Feb 2014 16:09:45 -0500, Jan Idzikowski  
<jan.idzikowski at knowledgetools.de> wrote:

> 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
>>
>>
>>
>
>


-- 
Regards,

William
-------------- next part --------------
A non-text attachment was scrubbed...
Name: cl-smtp.lisp
Type: application/octet-stream
Size: 21646 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cl-smtp-devel/attachments/20140218/7395363f/attachment.obj>