(defmacro! cond (fn* [& xs]
  (if (> (count xs) 0)
      (list 'if (first xs)
        (if (> (count xs) 1)
            (nth xs 1)
          (throw "odd number of forms to cond"))
	    (cons 'cond (rest (rest xs)))))))

;; Local Variables:
;; eval: (emacs-lisp-mode)
;; End: