diff options
-rw-r--r-- | src/property/os.lisp | 3 | ||||
-rw-r--r-- | src/propspec.lisp | 4 |
2 files changed, 0 insertions, 7 deletions
diff --git a/src/property/os.lisp b/src/property/os.lisp index db64aad..f80519d 100644 --- a/src/property/os.lisp +++ b/src/property/os.lisp @@ -98,9 +98,6 @@ :desc (lambda (&rest args) (declare (ignore args)) (propappdesc (choose-propapp))) - :check (lambda (&rest args) - (declare (ignore args)) - (propappcheck (choose-propapp))) :apply (lambda (&rest args) (declare (ignore args)) (propappapply (choose-propapp))) 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) |