Substantially modified the way Parenscript compilation and

[clinton/parenscript.git] / src / utils.lisp

diff --git a/src/utils.lisp b/src/utils.lisp
index 31c488c..b32d0a7 100644 (file)
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -92,10 +92,6 @@ SOMEGLOBAL."
   (reduce (lambda (list el) (remove el list :test test))
           (cons list1 list2)))
 
-(defmacro aif (test-form then-form &optional else-form)
-  `(let ((it ,test-form))
-     (if it ,then-form ,else-form)))
-
 (defmacro once-only ((&rest names) &body body) ;; the version from PCL
   (let ((gensyms (loop for nil in names collect (gensym))))
     `(let (,@(loop for g in gensyms collect `(,g (gensym))))