Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
1 665c255d 2023-08-04 jrmu (defun fringe (lst)

2 665c255d 2023-08-04 jrmu   (cond ((null lst) nil)

3 665c255d 2023-08-04 jrmu 	((not (consp lst)) (list lst))

4 665c255d 2023-08-04 jrmu 	(t (append (fringe (car lst))

5 665c255d 2023-08-04 jrmu 		   (fringe cdr lst)))))