diff options
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/src/property.lisp b/src/property.lisp index 497b2f1..49e1a6a 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -279,14 +279,7 @@ parsing FORMSV and pushing SETPROP keyword argument pairs to plist SLOTSV." ;; in this way, so issue a warning. ,@(and (getf ,slotsv :hostattrs) '((programmatic-apply-hostattrs))) - (%consfigure - nil - (make-host - :hostattrs (hostattrs *host*) - :propspec - (with-*host*-*consfig* - (make-propspec - :propspec (cons ',,name args)))))))))))))))) + (consfigure (cons ',,name args))))))))))))) (define-condition programmatic-apply-hostattrs (simple-warning) ()) |