[求助]学substr功能的sublst问题

dinosaurhxe

我想做一个通用函数，仿substr的功能，对表进行截取，代码如下：

2. ;(setq lst (list 1 2 3 4 5 6 7))
3. ;测试(sublst lst 3 3)-->(3 4 5)
4. ;测试(sublst lst 3 nil)-->(3 4 5 6 7)
5. ;测试(sublst lst 3 8)-->(3 4 5 6 7)
6. (defun sublst (lst start lenth / lst2 nlen)
7. (setq lst2 (list))
8. (if (or (null lenth) (> lenth (- (length lst) start)))
9.   (setq lenth (1+ (- (length lst) start)))
10. )
11. (setq nlen (1- (+ start lenth)))
12. (repeat lenth
13.   (setq lst2 (cons (nth (setq nlen (1- nlen)) lst) lst2))
14. )
15. lst2
16. )

;(setq lst (list 1 2 3 4 5 6 7)) ;测试(sublst lst 3 3)-->(3 4 5) ;测试(sublst lst 3 nil)-->(3 4 5 6 7) ;测试(sublst lst 3 8)-->(3 4 5 6 7) (defun sublst (lst start lenth / lst2 nlen) (setq lst2 (list)) (if (or (null lenth) (> lenth (- (length lst) start)))   (setq lenth (1+ (- (length lst) start))) ) (setq nlen (1- (+ start lenth))) (repeat lenth   (setq lst2 (cons (nth (setq nlen (1- nlen)) lst) lst2)) ) lst2 )

现在发现lenth这个参数不能为空，比如(sublst 3)，直接就给我报错误
; 错误: 参数太少
不知道这个问题能不能解决。也就是说defun可不可以指定可选参数？

dinosaurhxe2

补一句：楼上部分代码是参考caoyin前辈的，感谢caoyin前辈的指点！