11 lines
259 B
Common Lisp
11 lines
259 B
Common Lisp
(defn list (x . y) (cons x y))
|
|
|
|
(macro cond (expr. rest)
|
|
(if rest (list 'if (car expr) (car (cdr expr)) (cons 'cond rest))
|
|
expr))
|
|
|
|
(macro and (expr . rest)
|
|
(if rest (list 'if expr (cons 'and rest)) expr))
|
|
|
|
;(cond ((== 1 0) 0) ((== 1 1) -1) (+ 100000000))
|