intern

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index fa505e2..9f3e726 100644 (file)
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -817,9 +817,12 @@
                 (when (eq package *keyword-package*)
                   (oset symbol "value" symbol)
                   (export (list symbol) package))
-               (when (eq package *js-package*)
-                  (oset symbol "value" symbol)
-                  (export (list symbol) package))
+               (when (eq package (find-package "JS"))
+                  (in-package :js
+                             `(defun ,symbol (args)
+                               (apply #'%js-call ,(symbol-name symbol)
+                                      args)))
+                 (export (list symbol) package))
                 (oset symbols name symbol)
                 (values symbol nil)))))))