Blob

Date:
Message:
Import sources
Actions:
History | Blame | Raw File
1 (defun fringe (lst)

2   (cond ((null lst) nil)

3 	((not (consp lst)) (list lst))

4 	(t (append (fringe (car lst))

5 		   (fringe cdr lst)))))