Commit 58b81c20 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Exported try-systems-in-directory.

parent 3e6fa40e
......@@ -40,7 +40,10 @@
"SPLIT-SEQUENCE"
"COM.INFORMATIMAGO.COMMON-LISP.CESARUM.FILE"
"COM.INFORMATIMAGO.TOOLS.ASDF-FILE"
"COM.INFORMATIMAGO.TOOLS.SCRIPT"))
"COM.INFORMATIMAGO.TOOLS.SCRIPT")
(:export
"TRY-SYSTEMS-IN-DIRECTORY"
"TRY-SYSTEMS"))
(in-package "COM.INFORMATIMAGO.TOOLS.TRY-SYSTEMS")
(defmacro in-home (relative-path)
......@@ -207,4 +210,7 @@
(format t "~2%;; Usage:~2%~S~2%"
'(try-systems-in-directory #P"~/src/public/lisp/")))
(defun try-systems ()
(try-systems-in-directory #P"~/src/public/lisp/"))
;;;; THE END ;;;;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment