(DEFMACRO defun (f params code) `(DEFUN ,f ,params ,code))
(DEFUN car (x) (CAR x))
(DEFUN cdr (x) (CDR x))
(DEFUN equal (x y) (EQUAL x y))
(DEFUN tee! () T)
(DEFUN empty! () NIL)
(DEFUN lispcons (x y) (CONS x y))
(DEFMACRO lispif (x y z) `(IF ,x ,y ,z))
(DEFMACRO quote (x) `(QUOTE ,x))
(DEFMACRO lambda (x y) `(FUNCTION (LAMBDA ,x ,y)))