19 lines
386 B
Common Lisp
19 lines
386 B
Common Lisp
(print "Debug starts")
|
|
|
|
; (print (make-csv '(("r1c1" "r1c2") ("r2c1" "r2c2"))))
|
|
|
|
(define path '("/usr/local/var/mlisp"))
|
|
|
|
(for d path
|
|
(if (is-dir? d)
|
|
(for f (ls-dir d)
|
|
(if (regex-search? f "^.*\.l(i)?sp$")
|
|
(include (+ d "/" f))
|
|
'())
|
|
)
|
|
()))
|
|
|
|
(print (regex-search? "test.lsp" "^.*\.l(i)?sp$"))
|
|
|
|
(print "Debug ends")
|