[Bese-devel] m-v-b greenspunned in actions.

[Drew Crampsie]

multiple-value-bind (actually m-v-call) doesn't work in actions. Not a 
big deal, but it came up twice in one day, so :

(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))
                      , at body))

it works in an action, avoiding a direct call to m-v-c :

 > (multiple-value-bindf (a b c) (values 1 2 3)
                    (list a b c))
=> (1 2 3)

works for me,

drewc