anchor.diff:    :args-valid t
     :return
     (let ((new-env (clone-environment env))
  -        (base "mvb"))
  +        (base (string-downcase (string (free-name 'mvb)))))
       (setf (v-multi-val-base new-env) base)
       (let ((code-obj (varjo->glsl value-form new-env)))
         (unless (= (length vars) (+ 1 (length (multi-vals code-obj))))
  
positive.code:       (expand->varjo->glsl `(prog1 ,@values) env)))
  
  (defun %values (values env)
    (print "%values")
    (let ((new-env (clone-environment env)))
      (setf (v-multi-val-base new-env) nil)
      (let* ((qualifier-lists (mapcar #'extract-value-qualifiers values))
  
negative.code: 
  ;; Used when this is a labels (or otherwise local) function
  (defun %regular-value-return (code-obj)
    (merge-obs
     code-obj :type 'v-void
     :current-line (format nil "return ~a" (current-line code-obj))
  