diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-04 16:29:39 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-04 16:29:39 -0700 |
| commit | 160b76c2bef0541ebcae3363ceebb0666e227451 (patch) | |
| tree | dde309dc5666138500a4bbf49d8724158b31a2af /src/property/chroot.lisp | |
| parent | cebded4616c69a59767f2f19a071dfda0357d513 (diff) | |
| download | consfigurator-160b76c2bef0541ebcae3363ceebb0666e227451.tar.gz | |
start figuring out representation of host operating systems
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 41de6a8..9d0acd1 100644 --- a/src/property/chroot.lisp +++ b/src/property/chroot.lisp @@ -18,9 +18,9 @@ (in-package :consfigurator.property.chroot) (named-readtables:in-readtable :interpol-syntax) -(defgeneric os-bootstrap (host root &key) +(defgeneric os-bootstrap (os root &key) (:documentation - "Bootstrap HOST's OS into ROOT, e.g. with debootstrap(1).")) + "Bootstrap OS into ROOT, e.g. with debootstrap(1).")) (defproplist os-bootstrapped :posix (options root properties &aux (host (make-host :props properties))) @@ -33,4 +33,4 @@ (declare (ignore options host)) (test "-d" root)) (:apply - (apply #'os-bootstrap host root options))) + (apply #'os-bootstrap (car (getf (hostattrs host) :os)) root options))) |