anchor.diff:                                 (alexandria:iota (length objs))
                                  objs))
            ;;
  -         (first-name (gensym))
            (result (cond
                      ((v-voidp (first objs))
                       (compile-form `(progn ,@assign-forms) env))
                      (objs
                       (compile-form
  -                     `(let ((,first-name ,(first assign-forms)))
  -                        ,@(rest assign-forms)
  -                        ,first-name)
  +                     `(progn
  +                        ,@assign-forms
  +                        (values))
                        env))
                      (t (error "Varjo: Invalid values form inside emit (values)"))))
            ;;
  
positive.code:             env)))
  
  (defun %values-for-return (objs qualifier-lists parsed-qualifier-lists env)
    (let* (;;
           (is-main-p (not (null (member :main (v-context env)))))
           (new-env (fresh-environment env :multi-val-base nil))
  
negative.code:          ;;
           (first-name (gensym))
           (result (cond
                     ((> (length objs) 1)
                      (compile-form
                       (if is-main-p
  