diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-09 09:26:26 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-09 09:30:16 -0700 |
| commit | ad76d166aefc830879b5e656f7cdf641bf05b5bb (patch) | |
| tree | 50c9c408a78f9e1e1c8359203221c48dc7959dfb | |
| parent | cc691dcd56ead0bf216edc0d8cdc118750436c65 (diff) | |
| download | consfigurator-ad76d166aefc830879b5e656f7cdf641bf05b5bb.tar.gz | |
wrap calls to SETPROP in EVAL-WHEN
This means that when properties call other properties, we won't get undefined
function warnings.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/property.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/property.lisp b/src/property.lisp index 0820810..51a1033 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -120,7 +120,8 @@ ;; posix-connection. possibly a condition with a restart ;; which allows skipping over this property `(lambda ,args ,@slot)))) - `(setprop ',name ,type ,@slots))) + `(eval-when (:compile-toplevel :load-toplevel :execute) + (setprop ',name ,type ,@slots)))) (defmacro defproplist (name type args &body properties) "Define a property which applies a property application specification. @@ -164,7 +165,8 @@ subroutines at the right time." `(lambda (&rest all-args) (cons (destructuring-bind ,args all-args ,(props properties)) all-args))) - `(setprop ',name ,type ,@slots))) + `(eval-when (:compile-toplevel :load-toplevel :execute) + (setprop ',name ,type ,@slots)))) ;;;; hostattrs in property subroutines |