1 665c255d 2023-08-04 jrmu (defun square-tree-direct (tree)
2 665c255d 2023-08-04 jrmu   (cond ((null tree) nil)
3 665c255d 2023-08-04 jrmu 	((not (consp tree))