13 lines
275 B
Plaintext
13 lines
275 B
Plaintext
|
|
(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:
|