Build

Author: mmontone

build/Makefile

@@ -9,5 +9,10 @@ quicklisp-controller:
 	git clone --depth=1 https://github.com/quicklisp/project-info.git
 	git clone --depth=1 https://github.com/quicklisp/quicklisp-controller.git
 
-build: quicklisp-projects quicklisp-controller
+systems-file:
+	sbcl --load 'make-systems-file.lisp' --eval '(quicklisp-systems-file::make-systems-file)'
+
+build: quicklisp-projects quicklisp-controller systems-file
 	sbcl --load build.lisp
+
+

build/build-systems-file.lisp renamed to build/make-systems-file.lisp

@@ -9,7 +9,7 @@
 ;; - Use WRITE-SYSTEMS-FILE to serialize to a QUICKLISP-SYSTEM distribution file.
 ;; - Upload the file to the URL in QUICKLISP-SYSTEMS::*SYSTEMS-FILE-URL*
 
-(require :quicklisp-systems)
+(require :quicklisp-systems #p"../quicklisp-systems.lisp")
 
 (defpackage #:quicklisp-systems-file
   (:use #:cl))
@@ -76,3 +76,7 @@ If INCLUDE-SUBDIRECTORIES is T, then work recursively."
                           :if-exists :supersede)
     (serialize-asdf-systems (asdf/system-registry:registered-systems*)
                             f)))
+
+(defun make-systems-file ()
+  (register-all-asdf-files)
+  (write-systems-file))