anchor.diff:     (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)))
  +   (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)
  
positive.code:                              &optional (byte-offset 0))
    (let ((id-name (gensym)))
      (make-assigner
       :let-forms
       (list (make-assigner-let
              :name id-name
  
negative.code: 
  
  (defun+ make-assigner (&key let-forms uploaders pointer-arg
                              arg-name local-arg-name cleanup
                              always-uploadp)
    (make-instance 'assigner :let-forms let-forms :uploaders uploaders
                   :pointer-arg pointer-arg :arg-name arg-name
                   :local-arg-name local-arg-name
                   :cleanup cleanup
                   :always-uploadp always-uploadp))
  
  (defun+ merge-into-assigner (pointer-arg assingers)
    (make-assigner :let-forms (mapcat #'let-forms assingers)
  