Index: /trunk/source/compiler/nx0.lisp
===================================================================
--- /trunk/source/compiler/nx0.lisp	(revision 15335)
+++ /trunk/source/compiler/nx0.lisp	(revision 15336)
@@ -1807,11 +1807,7 @@
       (let* ((*nx-sfname* sym) special)
         (if (and (setq special (gethash sym *nx1-alphatizers*))
-                 (or (not (functionp (fboundp sym)))
-                     (memq sym '(apply funcall ;; see bug #285
-                                 %defun        ;; see bug #295
-                                 ))
-                     (< (safety-optimize-quantity env) 3))
-                 ;;(not (nx-lexical-finfo sym env))
-                 (not (nx-declared-notinline-p sym *nx-lexical-environment*)))
+                 (not (nx-lexical-finfo sym env))
+                 (or (special-operator-p sym)
+                     (not (nx-declared-notinline-p sym env))))
           (funcall special context form env) ; pass environment arg ...
           (progn