Zander671/simple-lisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove test code

Browse Source
This commit is contained in:
Alexander Rosenberg
2025-09-22 04:14:03 -07:00
parent 5dbc0276d4
commit dfbd60db18
1 changed files with 1 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/kernel.sl
View File

@ -349,12 +349,4 @@
"Return non-nil if SYMBOL is accessible from PACKAGE." "Return non-nil if SYMBOL is accessible from PACKAGE."
(let* ((def '::unbound) (let* ((def '::unbound)
(found (intern-soft (symbol-name symbol) def package t))) (found (intern-soft (symbol-name symbol) def package t)))
(not (eq found def)))) (eq symbol found)))
(register-package 'test)
'test::a
'test::b
(println (symbol-accessible-p 'b))
(println (symbol-accessible-p 'b 'test))