1 665c255d 2023-08-04 jrmu (defun square-list-solo (items)
2 665c255d 2023-08-04 jrmu   (if (null items)
3 665c255d 2023-08-04 jrmu       nil
4 665c255d 2023-08-04 jrmu       (cons (square (car items))
5 665c255d 2023-08-04 jrmu 	    (square-list-solo (cdr items)))))
6 665c255d 2023-08-04 jrmu (defun square-list-map (items)
7 665c255d 2023-08-04 jrmu   (mapcar #'square items))