[no subject]

[MMcM@MIT-AI]

(LET ((A ...))
  (MULTIPLE-VALUE-BIND (A B)
      (FOO A)
    (BAR A B)))
does not work right, since A is bound by the MULTIPLE-VALUE-BIND around the call to FOO.
This is probably hard to fix so as to work interpretted too without some gross kludge
like MAKE-SYMBOL'ing (since this looks better in the debugger than gensym) new versions of
the MULTIPLE-VALUE-BIND's A and B, binding these for the call to FOO and then binding the
intern'ed A and B around the rest of the body.