Permalink
Browse files

Make the systems.txt header a parameter so it can be reused consisten…

…tly.
  • Loading branch information...
1 parent a1363ac commit c51f90ad875158414d7ae6b47f8737642c680651 @xach xach committed Feb 10, 2014
Showing with 4 additions and 1 deletion.
  1. +4 −1 indexes.lisp
View
@@ -4,6 +4,9 @@
(defvar *index-file-format-version* 27)
(defparameter *s3-bucket* "beta.quicklisp.org")
+(defparameter *system-file-header*
+ "# project system-file system-name [dependency1..dependencyN]")
+
(defun unslashify-system-name (system-name)
(let ((slash (position #\/ system-name)))
@@ -18,7 +21,7 @@
(defun write-system-index (file)
(with-open-file (stream file :direction :output
:if-exists :supersede)
- (format stream "# project system-file system-name [dependency1..dependencyN]~%")
+ (format stream "~A~%" *system-file-header*)
(map-sources
(lambda (source)
(let ((winners (find-winning-systems source)))

0 comments on commit c51f90a

Please sign in to comment.