From 310961aedca8ac1609228880b882c791a028977b Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 16 Apr 2021 20:31:30 -0700 Subject: avoid quoting self-evaluating forms when reconstructing propspecs Signed-off-by: Sean Whitton --- src/propspec.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/propspec.lisp') 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. -- cgit v1.2.3