From: Raimon Grau <raimonster@gmail.com>
Date: Mon, 22 Apr 2013 19:34:40 +0000 (+0200)
Subject: intern
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=833037dc324595c513be20babf95ee1787bb9167;p=jscl.git

intern
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index fa505e2..9f3e726 100644
--- 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)))))))