el.el

(defmacro aif (test-form then-form &optional else-form)
  (declare (indent 1))
  `(let ((it ,test-form))
     (if it ,then-form ,else-form)))

(defmacro aand  (&rest args)
  (declare (indent 0))
  (cond ((null args) t)
        ((null (cdr args)) (car args))
        (t `(aif ,(car args)
              (aand ,@(cdr args))))))

(defadvice paredit-space-for-delimiter-p (after ^ activate)
  (unless (ad-get-arg 0)
    (when ad-return-value
      (aand (symbol-at-point)
            (eq '^ it)
            (setq ad-return-value nil)))))