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) |