diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-06 15:05:36 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-06 15:57:19 -0700 |
| commit | 88d1bf3abac5529cfb1950cb49ec0d61e2384382 (patch) | |
| tree | cd5c9733047c895046bfa0b13a576f88b35b48ae /src/property/os.lisp | |
| parent | 3fe7f29bd7ac5f775be23fcff20d1393e2804c25 (diff) | |
| download | consfigurator-88d1bf3abac5529cfb1950cb49ec0d61e2384382.tar.gz | |
introduce GET-HOSTATTRS-CAR
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/os.lisp')
| -rw-r--r-- | src/property/os.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/os.lisp b/src/property/os.lisp index 937e3c5..fb5ef44 100644 --- a/src/property/os.lisp +++ b/src/property/os.lisp @@ -22,7 +22,7 @@ "Error out if the OS of the host being deployed is not of type TYPE. Used in property :HOSTATTRS subroutines." - (let ((os (class-of (car (get-hostattrs :os))))) + (let ((os (class-of (get-hostattrs-car :os)))) (unless (and os (subtypep os type)) (error 'inapplicable-property :text #?"Property requires OS of type ${type}")))) |