From 77a267c7e42860affac8eddfcddb8e81fccd44e5 Mon Sep 17 00:00:00 2001 From: Philipp Marek Date: Sun, 9 Mar 2014 20:35:43 +0100 Subject: [PATCH] Make (EXT:PACKAGE-LOCK) return the promised value. The (possibly invalid!) pack.locked was returned; for STRING inputs the field aliased to "elttype", which was eg. 0xf for t_base_strings. --- 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 d08622e17..d9b371c22 100644 --- a/src/c/package.d +++ b/src/c/package.d @@ -893,8 +893,9 @@ cl_package_shadowing_symbols(cl_object p) cl_object si_package_lock(cl_object p, cl_object t) { - bool previous = p->pack.locked; + bool previous; p = si_coerce_to_package(p); + previous = p->pack.locked; p->pack.locked = (t != ECL_NIL); @(return (previous? ECL_T : ECL_NIL)) }