diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-03 09:34:37 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-04 14:47:02 -0700 |
commit | 006d3969bad1f84c0133a36ed9a623b59bd01c0e (patch) | |
tree | b16c80a6b3d9930dc98f3e3d141a8dabd075b05d /src/deployment.lisp | |
parent | 6195f10ed2c7c8999b2fd8078a12c6c84cb5a592 (diff) | |
download | consfigurator-006d3969bad1f84c0133a36ed9a623b59bd01c0e.tar.gz |
rename basic propapp accessors
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/deployment.lisp')
-rw-r--r-- | src/deployment.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index df1d243..b28fc69 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -42,13 +42,13 @@ preprocessed." (labels ((apply-*host*-propspec () (let ((propapp (eval-propspec (host-propspec *host*)))) - (assert-connection-supports (propapptype propapp)) + (assert-connection-supports (propapp-type propapp)) (if collect-at-end (let (*at-end-functions*) - (let ((result (propappapply propapp))) + (let ((result (apply-propapp propapp))) (dolist (function *at-end-functions* result) (funcall function result)))) - (propappapply propapp)))) + (apply-propapp propapp)))) (connect (connections) (destructuring-bind ((type . args) . remaining) connections ;; implementations of ESTABLISH-CONNECTION which call |