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/property/os.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/property/os.lisp')
| -rw-r--r-- | src/property/os.lisp | 3 |
1 files changed, 0 insertions, 3 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))) |