diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-01 23:38:57 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-01 23:38:57 -0700 |
commit | 8512a850bf9692052295e5242378011882d85976 (patch) | |
tree | b5c5c9649e5a62f99796d27156f771aed19c0cf8 /src/property/chroot.lisp | |
parent | f08df5cc392f16e5a702fbac4be0504842f30f00 (diff) | |
download | consfigurator-8512a850bf9692052295e5242378011882d85976.tar.gz |
OS:TYPECASE->OS:ETYPECASE & OS:HOST-TYPECASE->OS:HOST-ETYPECASE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/chroot.lisp')
-rw-r--r-- | src/property/chroot.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/property/chroot.lisp b/src/property/chroot.lisp index 79126bd..23ee3f1 100644 --- a/src/property/chroot.lisp +++ b/src/property/chroot.lisp @@ -44,9 +44,9 @@ (defpropspec %os-bootstrapper-installed :posix (host) (:desc (declare (ignore host)) "OS bootstrapper installed") - `(os:host-typecase ,host + `(os:host-etypecase ,host (debian - (os:typecase + (os:etypecase (debianlike (apt:installed "debootstrap")))))) (defpropspec %os-bootstrapped :posix (options root host) @@ -55,7 +55,7 @@ ;; for sending to remote Lisp images (:desc (declare (ignore options root host)) "OS bootstrapped") (let ((host host)) - `(os:host-typecase ,host + `(os:host-etypecase ,host (debian (%debootstrapped ,root ,host ,@options))))) (defproplist os-bootstrapped :lisp |