Browse code
clean: dead code elimination
Edward Langley authored on 10/10/2019 07:23:27
Showing 1 changed files
Showing 1 changed files
... | ... |
@@ -1,7 +1,6 @@ |
1 | 1 |
(in-package :mfa-tool) |
2 | 2 |
|
3 | 3 |
(defvar *accounts* ()) |
4 |
-(defvar *main-credentials* (aws-sdk:make-credentials)) |
|
5 | 4 |
(defun session-name () |
6 | 5 |
(format nil "bootstrap~d" (+ 5000 (random 5000)))) |
7 | 6 |
|
... | ... |
@@ -27,7 +26,6 @@ |
27 | 26 |
(mfa-serial-number *user_management_account_id* |
28 | 27 |
user)) |
29 | 28 |
(role-arn (role-arn account role))) |
30 |
- (let ((aws-sdk:*session* (aws-sdk:make-session :credentials *main-credentials*)))) |
|
31 | 29 |
(loop |
32 | 30 |
(restart-case |
33 | 31 |
(return |