diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 17:30:16 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 17:30:16 -0700 |
| commit | ab5c87b90d4397be913ef99d321278d4bfd80a61 (patch) | |
| tree | 5c143629cae74c9cc96f5e0d54bbfd09827e295e /src/data.lisp | |
| parent | fcd9a0ed96e6eed58dd9eb6ce15b40efcd71b9b5 (diff) | |
| download | consfigurator-ab5c87b90d4397be913ef99d321278d4bfd80a61.tar.gz | |
fix REQUEST-LISP-SYSTEMS
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
| -rw-r--r-- | src/data.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/data.lisp b/src/data.lisp index eab5ff2..be47ff5 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -351,4 +351,8 @@ UPLOAD-ALL-PREREQUISITE-DATA." ;; connections which start up remote Lisp images use this (defun request-lisp-systems () (dolist (system (slot-value (slot-value *host* 'propspec) 'systems)) - (push-hostattrs :data (cons "--lisp-system" system)))) + (push-hostattrs :data (cons "--lisp-system" + (etypecase system + (string system) + (symbol (string-downcase + (symbol-name system)))))))) |