Updated ps-literal-p to correctly identify literal symbols without regard to the...

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 883d61d..9305831 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -46,7 +46,9 @@ lexical block.")
                    *ps-special-forms*))))
 
 (defun ps-literal-p (symbol)
-  (member symbol *ps-literals*))
+  (or (member symbol *ps-literals*)
+      (member (intern (symbol-name symbol) #.(find-package :parenscript))
+              *ps-literals*)))
 
 (defun op-form-p (form)
   (and (listp form)