git » jacl.git » commit c8f5dc2

Export CL:*PACKAGE*

author Alan Dipert
2019-12-28 06:47:59 UTC
committer Alan Dipert
2019-12-28 06:47:59 UTC
parent 0d04338edc8465ea9d0b0a9a9a976c2ba9a8e3f5

Export CL:*PACKAGE*

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