From 19a82bd5717d56ea49c554bf63b2de422563db7b Mon Sep 17 00:00:00 2001
From: drewc <drewc@tech.coop>
Date: Mon, 20 Jun 2005 11:20:27 -0700
Subject: [PATCH] multiple-value-bindf is a macro like m-v-b, only it works in
 CPS's code.

darcs-hash:20050620182027-39164-3611bc11da406a8c6a1dcf4de4efa89d9815cd1c.gz
---
 src/mewa/slot-presentations.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/mewa/slot-presentations.lisp b/src/mewa/slot-presentations.lisp
index 131d01c..7a6671e 100644
--- a/src/mewa/slot-presentations.lisp
+++ b/src/mewa/slot-presentations.lisp
@@ -1,5 +1,12 @@
 (in-package :it.bese.ucw)
 
+(defun multiple-value-funcall->list (function &rest args)
+		   (multiple-value-call #'list (apply function args)))
+
+(defmacro multiple-value-bindf (vars form &body body)
+		   `(destructuring-bind ,vars 
+		     (multiple-value-funcall->list #',(car form) ,@(cdr form))
+		     ,@body))
 
 (defslot-presentation clsql-wall-time-slot-presentation (mewa-relation-slot-presentation)
        ()
-- 
2.20.1