Определить макрос our-if, который имеет следующую форму (OUR-IF test :THEN exp1 exp2… :ELSE exp3 exp4 …)

(defmacro our-if (test &rest tail)
  (let   ((pt  (position :then tail))
          (lt  (length tail))
          (pe  (position :else tail)))
         (if (or (null pt) (null pe) (/= 0 pt) (= 1 pe))
             (raiseerror "Ошибка в синтаксисе OUR-IF") 
             (let ((body-t (subseq tail 1 pe))
                   (body-f (subseq tail (+ pe 1) lt)))
                  `(cond (,test ,@body-t)
                         (t ,@body-f))))))
 
==> our-if
 
(let ((x 5) (y 2))
  (our-if (> x y) 
    :ten  ;; !!!! тут ошибка !!!
      (say "AAA")
      (iter (for i from 1 to (* x x)) (summing i))
    :else
      (say "BBB")
      (iter (for i from 1 to (* y y)) (summing i))))
 
Ошибка в синтаксисе OUR-IF
==> ERRSTATE
 
(let ((x 5) (y 2))
  (our-if (> x y) 
    :then
      (say "AAA")
      (iter (for i from 1 to (* x x)) (summing i))
    :else
      (say "BBB")
      (iter (for i from 1 to (* y y)) (summing i))))
 
==> 325

(defmacro our-if (cond &body body)
           (let* ((exp2 (cdr (member :else body)))
                  (exp1 (cdr (butlast (member :then body) (1+ (length exp2))))))
             `(if ,cond (progn ,@exp1) (progn ,@exp2))))

(defmacro our-if (test &rest body)
  (let* ((bt (position :then body))
         (et (position :else body))
         (th (subseq body (1+ bt) et))
         (el (cdr (member :else body))))
    `(cond
       (,test ,@th)
       (t ,@el))))