[Use strings, and not symbols, to name javascript functions/macros
Marco Baringer <mb@bese.it>**20050905082735
 
 This effectivly flattens the namespace of javascript code. While this
 change makes js similar to javascript, and removes the need to export
 symbols from the JS package, it may break previous code which depended
 on, for expample, js:and not being equivalent to js:and.
 
] {
hunk ./js.lisp 214
-  (defvar *js-compiler-macros* (make-hash-table)
-    "*JS-COMPILER-MACROS* is a hash-table containing the functions corresponding
+  (defvar *js-compiler-macros* (make-hash-table :test 'equal)
+        "*JS-COMPILER-MACROS* is a hash-table containing the functions corresponding
hunk ./js.lisp 226
-      (setf (gethash ',name *js-compiler-macros*) #',js-name))))
+      (setf (gethash ,(symbol-name name) *js-compiler-macros*) #',js-name))))
hunk ./js.lisp 229
-  (when (gethash (car form) *js-compiler-macros*)
+  (when (gethash (symbol-name (car form)) *js-compiler-macros*)
hunk ./js.lisp 233
-  (gethash name *js-compiler-macros*))
+  (gethash (symbol-name name) *js-compiler-macros*))
hunk ./js.lisp 238
-  (defvar *js-macro-toplevel* (make-hash-table)
+  (defvar *js-macro-toplevel* (make-hash-table :test 'equal)
hunk ./js.lisp 247
+  (unless (symbolp name)
+    (return-from lookup-macro nil))
hunk ./js.lisp 251
-    (let ((val (gethash name (car env))))
+    (let ((val (gethash (symbol-name name) (car env))))
hunk ./js.lisp 259
-  (when (gethash name *js-compiler-macros*)
+  (when (gethash (symbol-name name) *js-compiler-macros*)
hunk ./js.lisp 261
-    (remhash name *js-compiler-macros*))
+    (remhash (symbol-name name) *js-compiler-macros*))
hunk ./js.lisp 263
-    `(setf (gethash ',name *js-macro-toplevel*)
+    `(setf (gethash ,(symbol-name name) *js-macro-toplevel*)
hunk ./js.lisp 736
-  (let* ((macro-env (make-hash-table))
+  (let* ((macro-env (make-hash-table :test 'equal))
hunk ./js.lisp 740
-	(setf (gethash name macro-env)
+	(setf (gethash (symbol-name name) macro-env)
}