diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-09 09:31:27 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-09 09:31:27 -0700 |
| commit | 79b5eb83694742eb78ed65d71a166e986c71ef4f (patch) | |
| tree | a5826280222f83ef7dd1edab0a444ed8d4db9b2c | |
| parent | ad76d166aefc830879b5e656f7cdf641bf05b5bb (diff) | |
| download | consfigurator-79b5eb83694742eb78ed65d71a166e986c71ef4f.tar.gz | |
reindent
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/property.lisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/property.lisp b/src/property.lisp index 51a1033..2af68c4 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -111,7 +111,7 @@ (when (stringp (car forms)) (pop forms)) (loop for form in forms if (keywordp (car form)) - do (setf (getf slots (car form)) (cdr form))) + do (setf (getf slots (car form)) (cdr form))) (loop for kw in '(:desc :preprocess :hostattrs :check :apply :unapply) do (if-let ((slot (getf slots kw))) (setf (getf slots kw) @@ -151,11 +151,11 @@ subroutines at the right time." else collect arg into accum))) ;; TODO :UNAPPLY which unapplies in reverse order (slots (list :hostattrs '(lambda (propspec &rest ignore) - (declare (ignore ignore)) - (%eval-propspec-hostattrs *host* propspec)) + (declare (ignore ignore)) + (%eval-propspec-hostattrs *host* propspec)) :apply '(lambda (propspec &rest ignore) - (declare (ignore ignore)) - (eval-propspec propspec))))) + (declare (ignore ignore)) + (eval-propspec propspec))))) (when (and (listp (car properties)) (eq :desc (caar properties))) (setf (getf slots :desc) `(lambda ,new-args |