Index: /trunk/source/compiler/nx0.lisp
===================================================================
--- /trunk/source/compiler/nx0.lisp	(revision 15351)
+++ /trunk/source/compiler/nx0.lisp	(revision 15352)
@@ -1805,9 +1805,13 @@
   (destructuring-bind (sym &rest args) form
     (if (symbolp sym)
-      (let* ((*nx-sfname* sym) special)
-        (if (and (setq special (gethash sym *nx1-alphatizers*))
+      (let* ((*nx-sfname* sym)
+             (special (gethash sym *nx1-alphatizers*))
+             (def (fboundp sym)))
+        (if (and special
                  (not (nx-lexical-finfo sym env))
                  (or (special-operator-p sym)
-                     (not (nx-declared-notinline-p sym env))))
+                     (not (nx-declared-notinline-p sym env)))
+                 (or (not (functionp def))
+                     (null (nx1-check-call-args def (cdr form) nil))))
           (funcall special context form env) ; pass environment arg ...
           (progn