From adbbcde3a8f0ef96ec0d448e21fed1d95fc9e762 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Wed, 9 Nov 2016 21:43:48 +0100 Subject: [PATCH] compat: be more compatible with sbcl --- src/lsp/packlib.lsp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/lsp/packlib.lsp b/src/lsp/packlib.lsp index 3d9df2306..e94c360d7 100644 --- a/src/lsp/packlib.lsp +++ b/src/lsp/packlib.lsp @@ -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