Add a prototype of DESTRUCTURING-BIND.

1 files changed, 3 insertions, 0 deletions

diff --git a/util.lisp b/util.lisp
index 13877b2..3a5320d 100644
--- a/util.lisp
+++ b/util.lisp
@@ -194,3 +194,6 @@
           (cons (macroexpand-all (car expansion))
                 (macroexpand-all (cdr expansion))))
         object)))
+
+(%defmacro* unless (test . body)
+  `(if (not ,test) (progn ,@body) nil))