Fixed a bug where 'create' was special-casing keywords in

[clinton/parenscript.git] / src / compiler.lisp

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 9933be1..4daf9e9 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -16,7 +16,8 @@
   (pushnew (symbol-name-to-js-string name) *ps-reserved-symbol-names* :test #'equalp))
 
 (defun ps-reserved-symbol-p (symbol)
-  (find (symbol-name-to-js-string symbol) *ps-reserved-symbol-names* :test #'equalp))
+  (when (symbolp symbol)
+    (find (symbol-name-to-js-string symbol) *ps-reserved-symbol-names* :test #'equalp)))
 
 ;;; special forms