diff options
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. |