Date: Fri, 18 Dec 1992 12:59 EST From: Bill Long <WJL@ZERMATT.LCS.MIT.EDU> I have a function the following type of function which works fine in Symbolics common-lisp: (defun foo () (multiple-value-setq (x () y)(bar)) (list x y)) (defun foo (&aux notused) (multiple-value-setq (x notused y) (bar)) notused (list x y)) barmar