From jan.idzikowski at knowledgetools.de Thu Feb 13 21:09:45 2014 From: jan.idzikowski at knowledgetools.de (Jan Idzikowski) Date: Thu, 13 Feb 2014 22:09:45 +0100 Subject: [cl-smtp-devel] pointer out of memory bounds In-Reply-To: References: Message-ID: <1392325785.3108.19.camel@ji-desktop> 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 #) > 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 > > > From jacobite1607 at gmail.com Thu Feb 13 20:14:34 2014 From: jacobite1607 at gmail.com (William P. Proffitt) Date: Thu, 13 Feb 2014 15:14:34 -0500 Subject: [cl-smtp-devel] pointer out of memory bounds In-Reply-To: References: Message-ID: 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 #) 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 -------------- next part -------------- An HTML attachment was scrubbed... URL: From jacobite1607 at gmail.com Tue Feb 18 15:05:42 2014 From: jacobite1607 at gmail.com (William P. Proffitt) Date: Tue, 18 Feb 2014 10:05:42 -0500 Subject: [cl-smtp-devel] pointer out of memory bounds In-Reply-To: <1392325785.3108.19.camel@ji-desktop> References: <1392325785.3108.19.camel@ji-desktop> Message-ID: 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 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 #) >> 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: From jan.idzikowski at knowledgetools.de Thu Feb 27 16:28:36 2014 From: jan.idzikowski at knowledgetools.de (Jan Idzikowski) Date: Thu, 27 Feb 2014 17:28:36 +0100 Subject: [cl-smtp-devel] pointer out of memory bounds In-Reply-To: References: <1392325785.3108.19.camel@ji-desktop> Message-ID: <1393518516.3270.1.camel@ji-desktop> Hi William, I have found the problem and fixed it, please use the new version 20140227.1 Thanks for the bug report and help. Regards Jan -- Jan Idzikowski