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)))