mini

gistfile1.txt

(defun _null (x)
  (eq x NIL))

(defun _or (x y)
  (if x t (if y t NIL)))

(defun _not (x)
  (if x NIL t))

(defun _and (x y)
  (_not (_or (_not x) (_not y))))

(defun _list (x y)
  (cons x (cons y NIL)))

(defun _append (x y)
  (if (_null x) y
      (cons (car x) (_append (cdr x) y))))

; if, cons, eq, car, cdr