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