mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 13:01:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

compat: be more compatible with sbcl

Browse source
This commit is contained in:
Daniel Kochmański 2016-11-09 21:43:48 +01:00
parent 14306cba69
commit adbbcde3a8
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lsp/packlib.lsp
View file

@ -293,13 +293,15 @@ If PACKAGE is non-NIL, then only the specified PACKAGE is searched."
(ffi:c-inline (package) (:object) :void
"(#0)->pack.locked = 1"
:side-effects t
:one-liner t))
:one-liner t)
T)
(defun unlock-package (package &aux (package (si:coerce-to-package package)))
(ffi:c-inline (package) (:object) :void
"(#0)->pack.locked = 0"
:side-effects t
:one-liner t))
:one-liner t)
T)
(defun package-locked-p (package &aux (package (si:coerce-to-package package)))
"Returns T when PACKAGE is locked, NIL otherwise. Signals an error