<div dir="ltr"><div>This is a reproducible script.</div><div><br></div><div>----</div><div>(defpackage unexport-test</div><div>  (:export :a))</div><div><br></div><div>(eval-when (:compile-toplevel :load-toplevel :execute)</div><div>  (when (find-package :unexport-test)</div><div>    (do-symbols (symbol :unexport-test)</div><div>      (unexport symbol :unexport-test))))</div><div><br></div><div>(defpackage unexport-test</div><div>  (:export :a))</div><div><br></div><div>(prin1 (nth-value 1 (intern (string :a) :unexport-test)))</div><div><br></div><div>#+sbcl (sb-ext:exit) #-sbcl (cl-user::quit)</div><div>----</div><div><br></div><div>$ sbcl --load unexport-test.lisp<br></div><div>:EXTERNAL</div><div><div><br></div><div><div>$ ccl --load unexport-test.lisp</div></div><div>:EXTERNAL</div><div><br></div><div>$ abcl --load unexport-test.lisp</div></div><div>:INTERNAL</div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature">深町英太郎 (Eitaro Fukamachi)<br></div></div>
<br><div class="gmail_quote">On Sun, Jan 11, 2015 at 6:50 PM, Eitaro Fukamachi <span dir="ltr"><<a href="mailto:e.arrows@gmail.com" target="_blank">e.arrows@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Hi ABCL developers,</div><div><br></div><div>I found a strange behaviour of cl-colors happening only on ABCL.</div><div><br></div><div>[Issue] Symbols won't be exported on ABCL</div><div><a href="https://github.com/tpapp/cl-colors/issues/6" target="_blank">https://github.com/tpapp/cl-colors/issues/6</a><br></div><div><br></div><div>Though cl-colors unexports all symbols before defpackage when reloading the system, the :export clause in defpackage seems to be ignored.</div><div><a href="https://github.com/tpapp/cl-colors/blob/master/package.lisp#L5-L19" target="_blank">https://github.com/tpapp/cl-colors/blob/master/package.lisp#L5-L19</a></div><div><br></div><div>Any ideas?</div><div><br></div>Regards,<br clear="all"><div><div>Eitaro</div></div>
</div>
</blockquote></div><br></div>