<div dir="ltr">Hi!<div><br></div><div>I found that:</div><div><br></div><div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">CL-USER> (let ((foo (lambda () "With docstring" 100500)))<br>           (princ (funcall foo))<br>           (terpri)<br>           (princ (documentation foo t)))<br>100500<br>NIL<br>NIL</blockquote><div><br></div><div>in ECL, but:</div><div><br></div><div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">CL-USER> (let ((foo (lambda () "With docstring" 100500)))<br>           (princ (funcall foo))<br>           (terpri)<br>           (princ (documentation foo t)))<br>100500<br>With docstring<br>"With docstring"</blockquote></div><div><br></div><div>Why?</div><div><br></div><div>BTW, similar behaviour have ABCL, Allegro and CCL. But SBCL and CLISP work as expected.</div><div><br></div>-- <br><div class="gmail_signature">Alexander Artemenko (a.k.a. Svetlyak 40wt)<br>Blog: <a href="http://dev.svetlyak.ru" target="_blank">http://dev.svetlyak.ru</a></div>
</div></div>