diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-16 18:23:55 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-23 10:51:30 -0700 |
| commit | d8f12a2c350ad788e1c9ce532f42460273990424 (patch) | |
| tree | d78da063e74f4e13e87aab1e9244164d3df2a66d | |
| parent | b9cf8fa7dabb2f47ad38541316ccc373359838ee (diff) | |
| download | consfigurator-d8f12a2c350ad788e1c9ce532f42460273990424.tar.gz | |
IGNORING-HOSTATTRS: accept calling properties using APPLY & similar
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/property.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/property.lisp b/src/property.lisp index 660a23e..245c440 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -331,7 +331,11 @@ subroutine, muffle warnings about calling a property with a :HOSTATTRS subroutine programmatically. Use this only when you know that the :HOSTATTRS subroutine does not push any new hostattrs." (unless - (and (listp form) (or (not (fboundp (car form))) (isprop (car form)))) + (and (listp form) (or (not (fboundp (car form))) + (isprop (car form)) + (and (listp (cadr form)) + (eql 'function (caadr form)) + (isprop (cadadr form))))) (simple-program-error "~A is not a programmatic call to a property." form)) `(handler-bind ((programmatic-apply-hostattrs #'muffle-warning)) ,form)) |