Add aif, for clisp.

diff --git a/utils.lisp b/utils.lisp
index d619232..ea74626 100644 (file)
--- a/utils.lisp
+++ b/utils.lisp
@@ -390,6 +390,10 @@ Host, device and version components are taken from DEFAULTS."
                  ;; scheme-specific parts: port username password, not others:
                  . #.(or #+scl '(:parameters nil :query nil :fragment nil))))
 
+(defmacro aif (test then &optional else)
+  "Anaphoric version of IF, On Lisp style"
+  `(let ((it ,test)) (if it ,then ,else)))
+
 (defun* probe-file* (p)
   "when given a pathname P, probes the filesystem for a file or directory
 with given pathname and if it exists return its truename."