shorter-code.lisp

; orig
(defun fl-alpha-cuts(lv alpha)
  (let ((i) (n) (fset) (sub_list))
  
	(setq i 0)
	(setq n (length lv))
	(while (< i n)
	 (progn

		(setq fset (eval (nth i lv)))

		(setq sub_list (fl-alpha-cut fset alpha)) 
		(print sub_list)
		(setq i (+ 1 i))
	 )
	)
 )
)

; better
(defun fl-alpha-cuts (lv alpha)
  (dolist (e lv)
    (print (fl-alpha-cut (eval e) alpha))))

DOLIST or LOOP are just fine. If one does not need more complex logic, then DOLIST is simpler. But usually I would also prefer to use LOOP.

Alternatively use MAPC:

(defun fl-alpha-cuts (lv alpha)
  (mapc (lambda (e)
          (print (fl-alpha-cuts (eval e) alpha)))
        lv))

Thanks very much for the replies, and the opinions!