blob: 7e9992bfc798d020bee3c8da94d2092a3760e612 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(defvar nil '())
(defvar pi 3.1415926)
(defvar e 2.718281828)
(defmacro incq (i)
`(setq ,i (+ ,i 1)))
(defmacro decq (i)
`(setq ,i (- ,i 1)))
(defun zerop (x) (= x 0))
(defun plusp (x) (> x 0))
(defun minusp (x) (< x 0))
(defmacro when (pred . body)
`(if ,pred
(progn ,@body)
nil))
(defmacro unless (pred . body)
`(if ,pred
nil
(progn ,@body)))
|
