Exported try-systems-in-directory.

Pascal J. Bourguignon [2015-10-31 09:30]
Exported try-systems-in-directory.
Filename
tools/try-systems.lisp
diff --git a/tools/try-systems.lisp b/tools/try-systems.lisp
index 55384df..b6926dd 100644
--- a/tools/try-systems.lisp
+++ b/tools/try-systems.lisp
@@ -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 ;;;;
ViewGit