(defun make-incr (min max &optional (steps 1)) (lambda (lst) (labels ((local-incr (local-lst) (cond ((null (car local-lst)) nil) ((< (car local-lst) max) (append (list (+ (car local-lst) steps)) (cdr local-lst))) (t (append (list min) (loc…

二重投稿しちゃったので削除。