X-Git-Url: http://git.hcoop.net/clinton/parenscript.git/blobdiff_plain/31c5dbdea39eb8a232adcea8a49a52be565dc6d2..57761a1442ddc970f77a8f30b19faf9d800b16fc:/src/compiler.lisp

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