diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 18:51:16 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 19:07:10 -0700 |
| commit | 8c6e1b16c74369e161162c5829ad5452dce18f38 (patch) | |
| tree | dc531e2de6459c759a91fba1009bf7b1b1e08644 /src/property/chroot.lisp | |
| parent | ab99f21ad9b7af5905481d3f56e58c3b320e3303 (diff) | |
| download | consfigurator-8c6e1b16c74369e161162c5829ad5452dce18f38.tar.gz | |
avoid using ONCE-ONLY inside DEFPROPSPEC
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/chroot.lisp')
| -rw-r--r-- | src/property/chroot.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/property/chroot.lisp b/src/property/chroot.lisp index 7b53515..98aa36d 100644 --- a/src/property/chroot.lisp +++ b/src/property/chroot.lisp @@ -36,7 +36,9 @@ (defpropspec %os-bootstrapped :posix (options root host) "Bootstrap OS into ROOT, e.g. with debootstrap(1)." - (once-only (host) + ;; evaluate HOST once; can't use ONCE-ONLY because gensyms not serialisable + ;; for sending to remote Lisp images + (let ((host host)) `(os:host-typecase ,host (debian (%debootstrapped ,options ,root ,host))))) |