(if (and (= 1 1) (= 2 2))
    (format t "son iguales Todos ~%")
    (format t "Algo no es igual ~%")
)

(if (or (= 1 1) (nil))
    (format t "Algo es Igual ~%")
    (format t "Nada es Igual ~%")
)

(if nil
    (format t "ES VERDADERO ~%")
    (format t "ES FALSO ~%")
)

(defvar *num-1* 1)
(defvar *num-2* 2)
(defvar *num-3* 3)

(if (= *num-1* 1)
    (progn
        (setf *num-2* (* *num-2* 2))
        (setf *num-3* (* *num-3* 3))
    )
    (format t "No es igual a 1~%"))

(format t "*num-2* = ~d ~%" *num-2*)
(format t "*num-3* = ~d ~%" *num-3*)