You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
(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:
|
|
|
