(defun em-spacing-predicates (endp delimiter)
  (not (or (and (eql ?\( delimiter)
                (eql ?\@ (char-before (point))))
           (and (eql ?\" delimiter)
                (eql ?\p (char-before (point)))
                (eql ?\# (char-before (1- (point))))))))

(setq paredit-space-for-delimiter-predicates '(em-spacing-predicates))