anchor.diff:        (remove nil (mapcar #'inner uniform-args)))))
   
   (defmethod gen-uploaders-block ((assigner assigner))
  -  (with-slots (arg-name local-arg-name) assigner
  -    `(when ,arg-name
  +  (with-slots (arg-name local-arg-name always-uploadp) assigner
  +
  +    `(,@(if always-uploadp
  +            '(progn)
  +            `(when ,arg-name))
          (let ((,local-arg-name ,(if (pointer-arg assigner)
                                      `(pointer ,arg-name)
                                      arg-name)))
  
positive.code:                              &optional (byte-offset 0))
    (let ((id-name (gensym)))
      (make-assigner
       :let-forms
       (list (make-assigner-let
              :name id-name
  
negative.code:    (arg-name :initform nil :initarg :arg-name :accessor arg-name)
     (local-arg-name  :initform nil :initarg :local-arg-name
                      :accessor local-arg-name)
     (cleanup :initform nil :initarg :cleanup :accessor cleanup)
     (always-uploadp :initform nil :initarg :always-uploadp
                     :accessor always-uploadp)))
  
  (defclass assigner-let-form ()
    ((index :initarg :index :accessor assigner-index)
  