       
#(#! 
(lisp::in-package (lisp::quote user::compiler))
#(lisp::multiple-value-call compiler::*vs* compiler::*value-to-go* compiler::top compiler::args-pushed compiler::*next-cvar* compiler::*compiler-output1* compiler::*base-used* lisp::multiple-value-prog1 compiler::*top-data* compiler::trash compiler::fun-val lisp::* lisp::values compiler::return-object compiler::*current-form* lisp::defun "Trying to return multiple values. ~%;But ~a was proclaimed to have single value.~%;Only first one will assured." compiler::vs lisp::multiple-value-setq "The variable ~s is not a symbol." "The constant ~s is being assigned a value." compiler::info compiler::call-global compiler::proclaimed-return-type (lisp::*) "~A was proclaimed to have only one return value. ~%;But you appear to want multiple values." compiler::*record-call-info* compiler::*exit* lisp::return compiler::var compiler::*vars* lisp::multiple-value-bind compiler::*unwind-exit* compiler::*clink* compiler::*ccb-vs* compiler::*last-label* (compiler::vs-base 0) compiler::too-few-args compiler::c1funcall compiler::c1funob compiler::copy-info compiler::c1args compiler::save-funob compiler::c2expr* compiler::c2funcall compiler::wt1 compiler::c2expr-top* compiler::make-info compiler::c1expr* compiler::unwind-exit compiler::get-return-type compiler::c1expr compiler::cmpwarn compiler::vs-push compiler::too-many-args compiler::cmperr compiler::c1vref compiler::multiple-value-check compiler::record-call-info compiler::set-var compiler::reset-top compiler::c1body compiler::c1add-globals compiler::c1make-var compiler::check-vdecl compiler::c1decl-body compiler::add-info compiler::check-vref compiler::c2var-kind compiler::wt-var-decl compiler::c2bind-loc compiler::c2expr (system::%init . #((system::putprop (lisp::quote lisp::multiple-value-call) (lisp::quote compiler::c1multiple-value-call) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::multiple-value-call) (lisp::quote compiler::c2multiple-value-call) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::multiple-value-prog1) (lisp::quote compiler::c1multiple-value-prog1) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::multiple-value-prog1) (lisp::quote compiler::c2multiple-value-prog1) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::values) (lisp::quote compiler::c1values) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::values) (lisp::quote compiler::c2values) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::multiple-value-setq) (lisp::quote compiler::c1multiple-value-setq) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::multiple-value-setq) (lisp::quote compiler::c2multiple-value-setq) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::multiple-value-bind) (lisp::quote compiler::c1multiple-value-bind) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::multiple-value-bind) (lisp::quote compiler::c2multiple-value-bind) (lisp::quote compiler::c2)) (system::mfsfun (lisp::quote compiler::c1multiple-value-call) 0 1) (system::mfsfun (lisp::quote compiler::c2multiple-value-call) 1 2) (system::mfsfun (lisp::quote compiler::c1multiple-value-prog1) 2 1) (system::*make-special (lisp::quote compiler::*top-data*)) (lisp::or (lisp::boundp (lisp::quote compiler::*top-data*)) (lisp::setq compiler::*top-data* lisp::nil)) (system::mfsfun (lisp::quote compiler::c2multiple-value-prog1) 3 2) (system::mfsfun (lisp::quote compiler::c1values) 4 1) (system::mfsfun (lisp::quote compiler::c2values) 5 1) (system::mfsfun (lisp::quote compiler::c1multiple-value-setq) 6 1) (system::mfsfun (lisp::quote compiler::multiple-value-check) 7 2) (system::mfsfun (lisp::quote compiler::c2multiple-value-setq) 8 2) (system::mfsfun (lisp::quote compiler::c1multiple-value-bind) 9 1) (system::mfsfun (lisp::quote compiler::c2multiple-value-bind) 10 3))))
)
