That's what I thought (from some code I read) however:

> (lisp-implementation-version)

"12.7.1"

> (defpackage a)

#<"A" package>

> (si:package-lock (find-package :a) nil)

#<"A" package>
> (si:package-lock (find-package :a) t)      

#<"A" package>

am I missing something?


On Oct 9, 2012, at 1:14 PM, Juan Jose Garcia-Ripoll wrote:

On Tue, Oct 9, 2012 at 10:06 PM, Jason Aeschliman <j.aeschliman@gmail.com> wrote:
Hello all, I'm looking for a way to test if a package is locked or not.
I've found the functions to actually lock/unlock a package, but have
been unable to find one which will just tell me the state of the lock.

The package lock function returns the previous status, so it also serves as a query function :-)

Juanjo

--
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain) 
http://juanjose.garciaripoll.googlepages.com