cl-emacs-if

2012-03-05

Description

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)))