dolist-with-left.lisp

(defun replace-dot-in-tree (tree)
  (labels ((rec (rest)
             (cond
               ((consp rest) (let (result)
                               (dolist-with-left (elem left rest)
                                 (push (rec elem) result))
                               (nreverse result)))
               (rest (replace-dot-sep rest)))))
    (rec tree)))

"Example:
CL-USER> (defparameter x '(1 2 3 4 5))
X
CL-USER> (ps-experiment.base::dolist-with-left (var left x)
           (print var)
           (print left))

1
NIL
2
(1 2 3 4 5)
3
(2 3 4 5)
4
(3 4 5)
5
(4 5)
NIL
"