* (if (> *read-base* 7)
(progn (print "hello") (+ *read-base* 22))
11)
"hello"
32
* (if (< *read-base* 7)
(progn (print "hello") (+ *read-base* 22))
11)
11
* (if 0
(progn (print "hello") (+ *read-base* 22))
11)
"hello"
32
*
Il est possible d'omettre la partie sinon, qui sera alors nil par défaut :
* (if (oddp *read-base*)
(progn (print "hello") (+ *read-base* 22)))
NIL
*
mais c'est considéré comme du mauvais style.