<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div><div>That's what I thought (from some code I read) however:</div><div><br></div><div>> (lisp-implementation-version)</div><div><br></div><div>"12.7.1"</div></div><div><br></div><div>> (defpackage a)</div><div><br></div><div>#<"A" package></div><div><br></div><div>> (si:package-lock (find-package :a) nil)</div><div><br></div><div>#<"A" package></div><div>> (si:package-lock (find-package :a) t) </div><div><br></div><div>#<"A" package></div><div>> </div><div><br></div><div>am I missing something?</div><div><br></div><div><br></div><div><div>On Oct 9, 2012, at 1:14 PM, Juan Jose Garcia-Ripoll wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite">On Tue, Oct 9, 2012 at 10:06 PM, Jason Aeschliman <span dir="ltr"><<a href="mailto:j.aeschliman@gmail.com" target="_blank">j.aeschliman@gmail.com</a>></span> wrote:<br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div id=":1p9">Hello all, I'm looking for a way to test if a package is locked or not.<br>
I've found the functions to actually lock/unlock a package, but have<br>
been unable to find one which will just tell me the state of the lock.</div></blockquote></div><br>The package lock function returns the previous status, so it also serves as a query function :-)<div><br></div><div>Juanjo<br clear="all">
<div><br></div>-- <br>Instituto de Física Fundamental, CSIC<br>c/ Serrano, 113b, Madrid 28006 (Spain) <br><a href="http://juanjose.garciaripoll.googlepages.com/" target="_blank">http://juanjose.garciaripoll.googlepages.com</a><br>
</div>
</blockquote></div><br></body></html>