From: Raimon Grau <raimonster@gmail.com>
Date: Mon, 22 Apr 2013 18:18:35 +0000 (+0200)
Subject: uppercased JS package
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9886eab8d8da614c74760ed640b19557d3ab3c7c;p=jscl.git

uppercased JS package
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index d71ff26..0813715 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -759,7 +759,7 @@
     (make-package "CL"))
 
   (defvar *js-package*
-    (make-package "js"))
+    (make-package "JS"))
 
   (defvar *user-package*
     (make-package "CL-USER" :use (list *common-lisp-package*)))
@@ -1116,12 +1116,13 @@
          (incf index))
        (setq name (subseq string index))))
     ;; Canonalize symbol name and package
-    (when (not (eq package "js"))
+    (when (not (eq package "JS"))
       (setq name (string-upcase name)))
     (setq package (find-package package))
     ;; TODO: PACKAGE:SYMBOL should signal error if SYMBOL is not an
     ;; external symbol from PACKAGE.
-    (if (or internalp (eq package (find-package "KEYWORD")))
+    (if (or internalp (eq package (or (find-package "KEYWORD")
+				      (find-package "JS"))))
         (intern name package)
         (find-symbol name package))))