author | Alan Dipert
<alan@dipert.org> 2019-12-28 06:47:59 UTC |
committer | Alan Dipert
<alan@dipert.org> 2019-12-28 06:47:59 UTC |
parent | 0d04338edc8465ea9d0b0a9a9a976c2ba9a8e3f5 |
jacl.js | +3 | -3 |
diff --git a/jacl.js b/jacl.js index 076b171..17189bc 100644 --- a/jacl.js +++ b/jacl.js @@ -248,14 +248,14 @@ class Package { // The 'use list'; list of packages, the symbols of which to also search this.use = []; } - intern(name) { + intern(name, exported = false) { let sym = this.symbols.get(name) if (!sym) { sym = new LispSymbol(name, this.name); this.symbols.set(name, sym); if (this.name === 'KEYWORD') sym.setConstant(); } - if (this.name === 'KEYWORD') { + if (exported || this.name === 'KEYWORD') { this.exports.add(name); } return sym; @@ -370,7 +370,7 @@ for (const [k,v] of JSCONSTS) { JSPKG.exportSymbol(k); } -const PACKAGE = Package.intern('CL', '*PACKAGE*'); +const PACKAGE = CLPKG.intern('*PACKAGE*', true); PACKAGE.value = Package.get('JACL'); JACLPKG.usePackage(CLPKG);