<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;">I’m trying to bring this up again, and also now sending it to slime-devel.  I would like this warning to be gone. Can anyone fix it?<div><br><div><div>On Mar 9, 2013, at 1:57 PM, Ben Hyde <<a href="mailto:bhyde@pobox.com">bhyde@pobox.com</a>> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Each time swank loaded it runs (swank::test-print-arglist) which complains:<div><br><div><div><font face="Courier">; Warning: Test failed: (&key #'#'+) => "(&key (function (function +)))"</font></div><div><font face="Courier">;            Expected: "(&key (function #'+))"</font></div><div><font face="Courier">; While executing: (:internal test test-print-arglist), in process worker(8).</font></div></div><div><br></div><div>That's due to this…</div><div><br></div><div><div><font face="Courier">swank> (decoded-arglist-to-string (decode-arglist '(&key (function #'+))))</font></div><div><font face="Courier">"(&key (function (function +)))"</font></div></div><div><br></div><div>Decoded-arglist-to-string is in swank-arglists.lisp.   It is using with-standard-io-syntax.  That binds ccl::*print-abbreviate-quote* to nil.  If I force it to T in decoded-arglist-to-string the test "passes."</div><div><br></div><div>It is certainly beyond the scope of my expertise etc. to determine where if anyplace the bug lies.  Though this seems odd to me:</div><div><br></div><div><div><font face="Courier">$ ccl64 --no-init</font></div><div><font face="Courier">Welcome to Clozure Common Lisp Version 1.9-r15759  (DarwinX8664)!</font></div><div><font face="Courier">? (values ccl::*print-abbreviate-quote* (with-standard-io-syntax ccl::*print-abbreviate-quote*))</font></div><div><font face="Courier">T</font></div><div><font face="Courier">NIL</font></div><div><font face="Courier">? </font></div></div><div><br></div><div>wdyt?</div><div><br></div><div> - ben</div></div></div>_______________________________________________<br>Openmcl-devel mailing list<br><a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br>http://clozure.com/mailman/listinfo/openmcl-devel<br></blockquote></div><br></div></body></html>