From 25fd890df5305b6f6e95ca6524989bf9d41f14bc Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sat, 26 Jul 2008 20:01:29 +0200
Subject: Add a prototype of DESTRUCTURING-BIND.

---
 util.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'util.lisp')

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))
-- 
cgit v1.2.3