diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 18:44:43 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 18:56:59 -0700 |
| commit | 279ae37f79fdba031a079616d904bd4b925e021f (patch) | |
| tree | 6e97169a63d99be575cf4cfa6cb99dc49a0f26b0 /src/propspec.lisp | |
| parent | 9a13780c2905e3083f3720f4efe239625e2e2b41 (diff) | |
| download | consfigurator-279ae37f79fdba031a079616d904bd4b925e021f.tar.gz | |
drop some pointless & incorrect :CHECK subroutines
Pointless because there is no point in running a check that
PROPAPPAPPLY/PROPAPPUNAPPLY is just going to run again. Incorrect because
always returning nil means unapplying the property will never happen.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/propspec.lisp')
| -rw-r--r-- | src/propspec.lisp | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/propspec.lisp b/src/propspec.lisp index d39f732..5979187 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -286,13 +286,11 @@ expression." (define-function-property-combinator eseqprops (&rest propapps) (:retprop :type (collapse-types (mapcar #'propapptype propapps)) - :check (constantly nil) :hostattrs (lambda () (mapc #'propappattrs propapps)) :apply (lambda () (apply-and-print propapps)))) (define-function-property-combinator seqprops (&rest propapps) (:retprop :type (collapse-types (mapcar #'propapptype propapps)) - :check (constantly nil) :hostattrs (lambda () (mapc #'propappattrs propapps)) :apply (lambda () (with-skip-failed-changes @@ -306,7 +304,6 @@ apply the elements of REQUIREMENTS in reverse order." (define-function-property-combinator silent-seqprops (&rest propapps) (:retprop :type (collapse-types (mapcar #'propapptype propapps)) - :check (constantly nil) :hostattrs (lambda () (mapc #'propappattrs propapps)) :apply (lambda () (with-skip-failed-changes @@ -347,7 +344,6 @@ ON-CHANGE in order." :desc (get (car propapp) 'desc) :hostattrs (lambda (&rest args) (apply #'propattrs (car propapp) args)) - :check (get (car propapp) 'check) :apply (lambda (&rest args) (unless (eq (propappapply (cons (car propapp) args)) :no-change) |