<!DOCTYPE html><html><head>
<style type="text/css">body { font-family:'Times New Roman'; font-size:13px}</style>
<style type="text/css">body { font-family:'Times New Roman'; font-size:13px}</style>
</head>
<body><div>Hello,</div><div><br></div><div>Recently as in the last couple of days. I have been having trouble with Cl-Smtp on Exchange 2003 in Lispworks 6.1.1 . </div><div><br></div><div>It goes like this:</div><div><br></div><div><font face="Courier New">(in-package "CL-USER")</font></div><div><font face="Courier New"><br></font><font face="Courier New">(ql:quickload 'cl-smtp)</font><font face="Courier New"><br></font></div><div><font face="Courier New"><br></font></div><div><font face="Courier New">(cl-smtp:send-email "ServerName"</font><font face="Courier New"><br></font><font face="Courier New"> "User1@FooSite.com"</font><font face="Courier New"><br></font><font face="Courier New"> "User2@FooSite.com"</font><font face="Courier New"><br></font><font face="Courier New"> "Test4"</font><font face="Courier New"><br></font><font face="Courier New"> "Read this message"</font><font face="Courier New"><br></font><font face="Courier New"> :authentication '(:login "FooUser" "FooPassword"))</font><font face="Courier New"><br></font></div><div><font face="Courier New"><br></font></div><div><font face="Courier New">Error: The condition In + of (8 #<pointer out of memory bounds: 52>) arguments should be of type NUMBER. occurred.<br></font></div><div><font face="Courier New"><br></font></div><div><font face="Courier New"><br></font></div><div><font face="Courier New">It appears it encounters this error in the underlined code below in cl-smtp.lisp (cl-smtp-20140211-cvs)<br></font></div><div><font face="Courier New"><br></font></div><div><font face="Courier New">(defun read-from-smtp (stream &optional lines)<br> (let* ((line (read-line stream))<br> (response (string-trim '(#\Return #\NewLine) (subseq line 4)))<br> (response-code (parse-integer line :start 0 :junk-allowed t)))<br> (WHEN *DEBUG* (PRINT (FORMAT NIL "from server: ~A" LINE)))<br> (if (= <u><strong><em><font color="#ff0080">(char-code (elt line 3)</font></em></strong></u>) (char-code #\-))<br> (read-from-smtp stream (append lines (list response)))<br> (values response-code response lines))))<br></font></div><div><font face="Courier New"><br></font></div><div><font face="Courier New">Any idea what is wrong?<br></font></div><div><font face="Courier New"><br></font></div><div id="M2Signature"><div>-- </div><div><div><font face="'Arial',sans-serif">Regards,</font></div><div><font face="'Arial',sans-serif"><br></font></div><div><font face="'Arial',sans-serif">William<br></font></div></div></div><br><font face="'Arial',sans-serif"><br></font></body></html>