From dfbd60db18b96b1327c2c2d93d38c218ed76120a Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Mon, 22 Sep 2025 04:14:03 -0700 Subject: [PATCH] Remove test code --- src/kernel.sl | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/src/kernel.sl b/src/kernel.sl index 0ecd12b..7ef8bc6 100644 --- a/src/kernel.sl +++ b/src/kernel.sl @@ -349,12 +349,4 @@ "Return non-nil if SYMBOL is accessible from PACKAGE." (let* ((def '::unbound) (found (intern-soft (symbol-name symbol) def package t))) - (not (eq found def)))) - -(register-package 'test) - -'test::a -'test::b - -(println (symbol-accessible-p 'b)) -(println (symbol-accessible-p 'b 'test)) + (eq symbol found)))