src/prelude.lisp


1
2
3
4
5
6
7
8
9
10
11

(defvar nil '())

(defvar pi 3.1415926)

(defmacro incq (i)
  `(setq ,i (+ ,i 1)))

(defmacro decq (i)
  `(setq ,i (- ,i 1)))

(defun zerop (x) (= x 0))