diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 13:32:12 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 14:29:20 -0700 |
commit | c62eac2c5ceee606c9fab36a2c35330b0f8fa70c (patch) | |
tree | f16672b6680bcc6f88cd0b433eb96aae9fdd371d /src/data.lisp | |
parent | 314a41bb0ac81a8a9515f5235a750c2bad917550 (diff) | |
download | consfigurator-c62eac2c5ceee606c9fab36a2c35330b0f8fa70c.tar.gz |
use some accessors instead of SLOT-VALUE
No functional change.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
-rw-r--r-- | src/data.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/data.lisp b/src/data.lisp index be4c37b..7cce283 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -486,8 +486,7 @@ Preprocessing must occur in the root Lisp.")) (find-package "CONSFIGURATOR")))) (proclamations `((proclaim '(special *consfigurator-debug-level*)))) (load-forms - (loop for system - in (slot-value (slot-value *host* 'propspec) 'systems) + (loop for system in (propspec-systems (host-propspec *host*)) collect `(load ,(caddar (remove-if-not @@ -550,5 +549,5 @@ a PRINT-OBJECT method for your class." are uploaded to the remote cache of the currently established connection. Called by connections which start up remote Lisp images." - (dolist (system (slot-value (slot-value *host* 'propspec) 'systems)) + (dolist (system (propspec-systems (host-propspec *host*))) (push-hostattrs :data (cons "--lisp-system" (normalise-system system))))) |