diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-16 20:31:30 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-16 20:35:39 -0700 |
commit | 310961aedca8ac1609228880b882c791a028977b (patch) | |
tree | 195b743ed87c231a6f499db71048b4ed16f55e59 /src/propspec.lisp | |
parent | 61d07ceecd36b2d11fbd93f2db3e472490794663 (diff) | |
download | consfigurator-310961aedca8ac1609228880b882c791a028977b.tar.gz |
avoid quoting self-evaluating forms when reconstructing propspecs
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/propspec.lisp')
-rw-r--r-- | src/propspec.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/propspec.lisp b/src/propspec.lisp index 7a12f19..16df661 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -92,7 +92,7 @@ arguments to properties in propapps, but that should not be needed." (if (atom tree) (if-let ((propapp (gethash tree *replaced-propapps*))) (funcall function propapp) - (if reconstruct `',tree tree)) + (if (and reconstruct (symbolp tree)) `',tree tree)) (let ((walked (mapcar #'walk tree))) (if reconstruct (cons 'list walked) walked))))) ;; First we need to find all the propapps, after macro expansion. |