Touch bundle-libs/local-projects/ignore for preventing from ignoring …

…the local-projects/ directory by git because it's required.
fukamachi · Dec 25, 2015 · 59bee64 · 59bee64
1 parent 8ff83f1
commit 59bee64
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/qlot.lisp b/src/qlot.lisp
@@ -103,6 +103,9 @@ If PATH isn't specified, this installs it to './quicklisp/'."
             (with-package-functions :ql (bundle-systems)
               (bundle-systems required-systems
                               :to (merge-pathnames #P"bundle-libs/" project-dir))))
+          (with-open-file (out (merge-pathnames #P"bundle-libs/local-projects/ignore" project-dir)
+                               :direction :output
+                               :if-exists nil))
           (format t "~&Successfully bundled to '~A'.~%Load 'bundle-libs/bundle.lisp' to use it.~%"
                   (merge-pathnames #P"bundle-libs/" project-dir)))
         (format t "~&Nothing to bundle.~%"))))