(cadr (cdr (assoc 'peer sr)))
(cdr (assoc 'filename sr))
(cdr (assoc 'size sr)))))
(cadr (cdr (assoc 'peer sr)))
(cdr (assoc 'filename sr))
(cdr (assoc 'size sr)))))
(let ((tag (assoc 'tag session)))
(if tag (set! args (append args (list "tag" (cdr tag))))))
(let ((uarg (assoc 'uarg session)))
(let ((tag (assoc 'tag session)))
(if tag (set! args (append args (list "tag" (cdr tag))))))
(let ((uarg (assoc 'uarg session)))
(let ((cl (or (assoc size sr)
(let ((newp (cons size '()))) (set! sr (append sr (list newp))) newp)))
(newsr (list
(let ((cl (or (assoc size sr)
(let ((newp (cons size '()))) (set! sr (append sr (list newp))) newp)))
(newsr (list