From 9886eab8d8da614c74760ed640b19557d3ab3c7c Mon Sep 17 00:00:00 2001 From: Raimon Grau Date: Mon, 22 Apr 2013 20:18:35 +0200 Subject: [PATCH] uppercased JS package --- ecmalisp.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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)))) -- 1.7.10.4