diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-01 23:28:03 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-01 23:28:03 -0700 |
commit | 9afcae19b3fc5bfc36a38b158c445a2ba08b6033 (patch) | |
tree | 8bdb6721796b168406cc67997badc9211dbe73bc | |
parent | b89e19e33771446fe67d24a9e431bb834be0f291 (diff) | |
download | consfigurator-9afcae19b3fc5bfc36a38b158c445a2ba08b6033.tar.gz |
add TODO in DEFPROP
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/property.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/property.lisp b/src/property.lisp index 53e42a3..fd695a5 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -294,6 +294,8 @@ subroutine does not push any new hostattrs." (loop for kw in '(:desc :preprocess :hostattrs :check :apply :unapply) do (if-let ((slot (getf slots kw))) (setf (getf slots kw) + ;; TODO wrap a BLOCK around ,@slot with the property name, + ;; so we can return from it `(lambda ,lambda ,@slot))))) (define-property-defining-macro defpropspec (type lambda slots forms) |