diff options
| author | Teddy Wing | 2021-02-14 20:02:56 +0100 |
|---|---|---|
| committer | Teddy Wing | 2021-02-14 20:02:56 +0100 |
| commit | c5d7702d3a9bc7bcefcc87284b7e65622468c52f (patch) | |
| tree | 0244d74d3a02ad2e74a6c3f27c26178cbc911077 /l/src/main.lisp | |
| parent | 19f8f337b041caa4ea13293555e8d1ff0e143458 (diff) | |
| download | extreload-c5d7702d3a9bc7bcefcc87284b7e65622468c52f.tar.bz2 | |
main.lisp: Rename `reload-extensions` to `attach-extensions`
That function was originally intended to be doing reloading, but that
didn't turn out to be the case. In order to do the reloading, we first
need to attach to the extensions individually. Rename the function to
better correspond to what it does.
Diffstat (limited to 'l/src/main.lisp')
| -rw-r--r-- | l/src/main.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/l/src/main.lisp b/l/src/main.lisp index 0695f20..3694f01 100644 --- a/l/src/main.lisp +++ b/l/src/main.lisp @@ -55,7 +55,7 @@ (let ((targets (extension-targets targets))) (setf *extension-targets-count* (length targets)) - (reload-extensions targets extension-ids))) + (attach-extensions targets extension-ids))) (if (target-attached-to-target-msg-p response) (reload-extension (json-obj-get @@ -85,8 +85,7 @@ (if (search "not available" s) nil))))) -;;; TODO: Rename to attach-extensions -(defun reload-extensions (targets extension-ids) +(defun attach-extensions (targets extension-ids) (labels ((requested-extension-p (target) (find-if #'(lambda (id) |