From 59cb2fc72f27a81e8d40f70e36bf3795caaf0e6d Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 3 Aug 2008 13:21:02 +0200
Subject: Add MULTIPLE-VALUE-BIND and MULTIPLE-VALUE-LIST.

---
 control-flow.lisp | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'control-flow.lisp')

diff --git a/control-flow.lisp b/control-flow.lisp
index a52b691..f676c08 100644
--- a/control-flow.lisp
+++ b/control-flow.lisp
@@ -212,3 +212,12 @@
                                            (cddr binding))))
                    bindings)
      ,@body))
+
+
+(defmacro multiple-value-list (expression)
+  `(multiple-value-call #'list ,expression))
+
+
+(defmacro multiple-value-bind ((&rest vars) expression &body forms)
+  `(destructuring-bind ,vars (multiple-value-list ,expression)
+     ,@forms))
-- 
cgit v1.2.3