1 665c255d 2023-08-04 jrmu (defun my-map (p sequence)
2 665c255d 2023-08-04 jrmu   (accumulate
3 665c255d 2023-08-04 jrmu    (lambda (x y)
4 665c255d 2023-08-04 jrmu      (cons (funcall p x) y))
5 665c255d 2023-08-04 jrmu    nil
6 665c255d 2023-08-04 jrmu    sequence))