From d905fb69c138159c2ac2c59176d304cc67127a36 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 9 Oct 2012 22:41:27 +0200 Subject: [PATCH] SI:PACKAGE-LOCK did not return the last value. --- src/c/package.d | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/c/package.d b/src/c/package.d index fa2cb3b7e..870c1a72e 100644 --- a/src/c/package.d +++ b/src/c/package.d @@ -893,9 +893,10 @@ cl_package_shadowing_symbols(cl_object p) cl_object si_package_lock(cl_object p, cl_object t) { + bool previous = p->pack.locked; p = si_coerce_to_package(p); p->pack.locked = (t != ECL_NIL); - @(return p) + @(return (previous? ECL_T : ECL_NIL)) } cl_object