From 833037dc324595c513be20babf95ee1787bb9167 Mon Sep 17 00:00:00 2001 From: Raimon Grau Date: Mon, 22 Apr 2013 21:34:40 +0200 Subject: [PATCH] intern --- ecmalisp.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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))))))) -- 1.7.10.4