(defun specialp (symbol)
  (handler-bind ((warning (lambda (c) (declare (ignore c)) (return-from specialp nil)))
                 (error (lambda (c) (declare (ignore c)) (return-from specialp nil))))
    (eval `(if (constantp ',symbol)
               nil
               (let ((,symbol (if (boundp ',symbol) ,symbol nil)))
                 (declare (ignorable ,symbol))
                 (boundp ',symbol))))))