diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-03 10:49:04 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-03 13:17:30 -0700 |
| commit | 6e3c9bb99383cdd8ebd8bead0cc9df77f87b71b4 (patch) | |
| tree | e8c3493b3bb6da29999030bc015904b440659268 /src/property.lisp | |
| parent | ab33bb1607fd69899e5982bcca4119917daa4e44 (diff) | |
| download | consfigurator-6e3c9bb99383cdd8ebd8bead0cc9df77f87b71b4.tar.gz | |
IGNORING-HOSTATTRS: don't fail for not-yet-defined properties
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/property.lisp b/src/property.lisp index d973dd9..52c040d 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -323,7 +323,8 @@ Use DEFPROPLIST/DEFPROPSPEC to avoid trouble.")) 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) (isprop (car form))) + (unless + (and (listp form) (or (not (fboundp (car form))) (isprop (car form)))) (simple-program-error "~A is not a programmatic call to a property." form)) `(handler-bind ((programmatic-apply-hostattrs #'muffle-warning)) ,form)) |