Emacs-If is a small package that provides Emacs-like IF and WHILE statements for Common Lisp.
(defpackage :my-package
(:use :cl)
(:shadowing-import-from :emacs-if :if :while))
(in-package :my-package)
(defun test-1 ()
(if (oddp (random 100)) (print 'one)
(print 'two)
(print 'three))
(values))
(defun test-2 ()
(let ((n 10))
(while (plusp n)
(print (decf n)))
(values)))