Forked from
cmucl / cmucl
Source project has a limited visibility.
-
rtoy authored
but the following gives wrong results: (macroexpand '(multiple-value-bind (&rest x) (foo y) d)) (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL &REST X &REST #:G858) (DECLARE (IGNORE #:G858)) D) (FOO Y)) Fix from Juan Jose Garcia Ripoll.
rtoy authoredbut the following gives wrong results: (macroexpand '(multiple-value-bind (&rest x) (foo y) d)) (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL &REST X &REST #:G858) (DECLARE (IGNORE #:G858)) D) (FOO Y)) Fix from Juan Jose Garcia Ripoll.