src/elisp.lisp

   1 (cl:defpackage "ELISP"
   2   (:nicknames "EL")
   3   (:use "CL")
   4   (:shadow cl:if)
   5   (:export #:if))
   6
   7 (in-package "ELISP")
   8
   9 (defmacro if (test pass &rest else)
  10   "Elisp version of IF."
  11   `(cl:if ,test
  12           ,pass
  13           (progn
  14             ,@else)))
  15