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))))

Lists in Lisp are based on linked cons cells. They are not vectors. So using NTH in a LOOP is slow. Just iterate over the list:

(defun fl-alpha-cuts (lv alpha)
  (loop for e in lv
        for fset = (eval e)
        for sub-list = (fl-alpha-cuts fset alpha)
        do (print sub-list)))

Ah, thank you! So effectively we can get it down to the same level as dolist?

(defun fl-alpha-cuts (lv alpha)
  (loop for e in lv
        do (print (fl-alpha-cuts (eval e) alpha))))

I would enjoy hearing your thoughts on why dolist is preferable here. I find the loop macro difficult to remember, so that's one benefit in my book :) Does dolist outperform or anything?

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!