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.
13 lines
275 B
13 lines
275 B
1 year ago
|
|
||
|
|
(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:
|